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? COMPILE DUMP/ANALYZE ALGOL LIBRARY 



O PACKET 956 

INPUT 597 CARDS FROM ZIP 

TIME 1041 

O DATE 773U MONDAY, H/07/77 



c 
c 

c 



*** BURROUGHS B5700 DCMcP MARK XVl.0,i78 AND INTRINSICS MARK XVI, 0,132 *** t - 

^O #N0 MESSAGES TODAY 

■-[ 10141118 ? COMPILE DUMP/ANALYZE ALGOL LIBRARY - - 

;Q 10141118 ? A LGOL FILE TAPE* SYMBOl/dUMPaNL DISK SERIAL 

10J41M9 ? r iLE LINE* LINE PRINT OR BACK UP ^~ 

;i 10S41U9 ? DATA CARD 

O 10I4H25 SjALGOL/DUMPsi 2 BOJ 1041 H/04/77 

101*1127 CDB IN CARD DB t ALgOL/DUMP= 2 ( - 

10 1 At * 31 OKA IN SER SYMBOL DUMPaNLI ALGOL/DUMP* 2 

O 10141132 PBD0957 OUT Oil L I NE I ALG0L/DUMP= 2 

10141145 DKA OUT RpM DUMP ANALYZE » ALGOL/DUMP* 2 - 

l0»4l 146 DKA OUT SeR DSK2 S I Te » ALGOL/DUMP* 2 

O 10?41S46 DKA OUT SER DSK1 SI TE * ALGOL/DUMPp 2 

10144X49 CDB REL CARD DB? ALGOL/DUMPs 2 ^ 

10I44U9 ? END, 

O 10|44!49 DKA REL SYMBOL DUMPANL j ALGOL/DUMP* 2 

10144151 DKA OUT SeR DSRTl S ITE J ALGOL/DUMP= 2 L 

10s 458 10 DKA OUT SeR DSRT2 S ITE » ALGOL/DUMP= 2 - 

O 10545J25 DKA REL DSRTl SITE 1 ALGOL/DUMPb 2 

10145*25 DKA REL DSRT2 S lT E » ALGOL/DUMP* 2 

t° J 45*26 DKA OUT SeR DSRTl S ITE I ALGOL/DUMPb 2 -- " 

O 10146110 DKA OUT SER DSRT 2 S I TE | ALGOL/DUMP* 2 r 

1° { *6J55 DKA REL DSRTl S ITe t ALGOL'DUMPb 2 L 

' - ■ 10146155 DKA REl DSRT2 S I Te » AlGoL/DUMP* 2 

O 10546*56 DKA REL DSK2 Si TE : ALGOl/DUmP* 2 

10146156 DKA REL DSKl S I Te J ALGOL/DUMP* 2 <~ 

10;46S57 PBD0957 REL Oil LINE 5931ULG0L/DUMP* 2 — 

O 10I46I57 DKA REL DUMP ANALYZE » ALGOL/DUMP* ? 

10*46158 AUOL/DUMp* 2 SYNTX eRR IO46 L 

10;47*01 pOR ALGOL/DUMP= 2s PROCESS* 257 SECS, 10- 143 SECS, OLaY= 5 

O 10J47I02 PKT#0956 REMOVED 
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LABEL OOOOOOOOOLlNE 001773U? COMPILE DUMp/ A NALYZE ALGOL LIBRARY 
XVI, 0.122 MONDAYt H/07/77* 10*41 aM, 



DUMP /ANALYZE 



SOURCE FILE! SYMBOL /DUMPANL 



COMMENT? * TITLE? B5500/B5700 MARK XVI SYSTEM RELEASE 

* FILE ID* SYMBOL/DUMPANL TAPE ID* S YMB0L2/F I LEOOO 

* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 

* AND IS NOT TO BE RfP r OdUCED. USED. OR DISCLOSED 

* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 

* BURROUGHS CORPORATION* DETROIT, MICHIGAN 48232 
* 

* COPYRIGHT (C) 197ii 1972» 1974 

* BURROUGHS CORPORATION 

* AA320206 AA332366 AA386657 

DUMP/ANALYZE 
PATCHED 6/4/74 11/21/73 
SEVfRAL OPTIONS ARE AVAILABLE FOR CONTROLLING THE ANALYSIS 
OF A MEMORY DUMp, THEY MAY BE CLASSIFIED INTO FOUR CATEGORIES} 



ti THOsE WHICH SPECIFY THE FORMAT 
SPLASH nUMP, OCTAL DUMP, ALPhA/OCTAL 
EITHER SINGLY OR DOUBLY SPACED, 



OF THE PRINTOUT Of MEMORYl 
DUMP#OR ALPHA DUMP) 



EXC L ,UDE AREAS OF MEMORY NOT OTHERWISE 



II. THnSE WHICH INCLUDE OR 
INCLUDED OR EXC L UDED» 
If INCLUSION OF AVAILABLE AREAS, 

2, EXCLUSION 0F» 

A, MCP CODE AREAS, 

B, NORMAL STATF CODE AREAS, 

C, NORMAL STATE AREAS OTHER THAN THOSE RELATING TO ONE 
SPECIFIC MIX INreX WHERE THE MIX INqEX IS SPECIFIED BY THE USER^ 

D, ENTfRF CONTfNTS OF MEMORY 

III. ThOSF WHICH CAUSE OMISStOn OF CERTAIN SECTIONS OF ANALYSIS! 
1, OMISSION OF THE PRINTOUT oF MCP PRT IDENTIFIERS, SORTED 

alphabetically and by prt location, 

iv, thoSe which control the dumping of stacksi 

1, exclusion of all normal state stacks excepting the one 
belonging to the same mix i n dex as the one specified by the user, 

2, inclusion of a user selected "stack" area which the 
analyzer would be unable to locate without the user"s assistance, 

THE MAJORITY OF OPTIONS MaY BE SET USING A COMMON CONTROL 
CARD* A FEW MAY BE SET ONLY V?A THE "IN" MESSAGE TO ALTER THE 
CONTENTS OF CERTAIN PRT CELLS WHICH HAVE BEE^' RESERVED FOR 
CONTROL FUNCTIONS, 
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the common control card is assu m ed To contain an eight digit 
number-. if less than eight appear» leading zeroes are 
automatically supplied, the analyzer separates the 8 digits into 
two groups* 
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WILL BE 
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ARFA, TF ANY D 
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S), SHOULD MORE 
ClMAL) OF STACK 
L) USING THE "IN 
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pected to be *0ctal* digits 
address of the user specified 
ds "7" or if all five are "0% 
er will be dumped, otherwise* 

it already has not been dumped, 
ddress and continuing until 
been prlnted( the stack is 
ck for purposes of stack 
tack be desired* the amount 

can be entered into prt cell 

alue used may be the setting 

e display panel at the time 

is specified the analyzer will obtain 

ocated in cell 7, the stack 

LLY OF INTEREST. ESPECIALLY WHEN 



DENT 




NOTE! IN THE DESCRIPTION OF EACH OPTION* IT IS ASSUMED THAT A 
STANDARD MEMORY DUMP ANALYSIS IS OBTAINED *EXCEPT* FqR THE 
DIFFERE N CES GENERATED BY THAT PARTICULAR OPTION, A "STANDARD" 
ANALYSIS IS ONE OBTAINED WiTH NO COMMON VaLUEU. E, COMMON-0), 

COMM0N«o* 

YIELDS A STANDARD ANALYSIS. AN MCP/PRT FILE IS REQUIRED, 

COMMONsi, 

YIELDS A "SPLA5H%UNANALYZED DUMP OF MEMORY* NO MCP/PRT IS 
REQUlREn, A "COMMENT" ENTERED WHEN THE DUMP TAPE WAS CREATED 
IS ALSO PRINTED. 



COMMONS?, 
DUMPS 



ALL AVAILABLE AREAS, 



COMMONS, 

EXCLUDES ALL NORMaL STATE OrJECT CODE, 
THIS INCLUDES ALL PROGRAM SEGMENTS ASSOCUTFD 
MIX INdfX AND ALL INTRINSIC SfGMENTS, 



WITH A 



COMMONsB, 

EXCLUDES All MCP 



OBJECT CODE, 
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C0MM0N=l6t 

CAUSES CERTAIN ARRAYS SELECTED BY THE USER TO BE DUMPED, 
SEE THE COMMENT AT SEQUENCE #00807480 FOR DETAILS, 

COMMON-32, 

INHIBITS THE DUMP OF THE MCP PRT IDENTIFIERS SORTED 
ALPHABETICALLY AND BY PRT LOCATION, 

COMMONS, 

YIELDS AN OCTAL-ONLY DUMP Or MEMORY FORMATTED SIX WORDS/LINE, 

COMMONsiPB, 

YIELDS AN ALPHA/OCTAL DUMP OF MEMORY, EACH PRINTED LINE 
CONTAINS FOUR WORDS OF OCTAL FOLLOWED, ON THE SAME LINE, BY 
THEIR ALPHA EQUIVALENT, 

C0MM0N*256, 

Last patched 12/11/73 
ytflds an alpha dump of memory formatted twelve words 
of alpha pfr printed line, 

COMMON-^84, 

COMPLETELY INHIBITS THE PRINTOUT OF THE CONTENTS OF MEMORY, 
THIS DOES NOT IMPLY THAT MEMORY IS NOT ANALYZED! VERIFICATION 
OP MEMORY LINKS IS MADE, THE BED AND SLATE ARE CHECKED, 
STACKS ARE LOCATED, ETC, 



COMMONB512 

CAUSES THE CONTENTS Of 
LAST VALID WORD POINTED TO 
ONLY WHfN AN MCP PATCH, THE 
MCP. 



THf "ARGH" ARRAY TO BE PRINTED UP TO THE 
BY "YECH". THIS INFORMATION IS PRESfNT 

"Roto" patch* has been compiled into thf 



PRT CELLS WHICH EXERCISE CONTROL FUNCTIONS 

NOTE! PrT LOCATIONS SPECIFIED REFER TO OCTAL PRT LOCATIONS FOR 
USE IN AN "IN" MESSAGE, 

PRT 25 

THIS CELL Is NORMALLY SET FROM THE RIGHT-MOST 3 DIGITS WHICH 

appear on a common card) however, they may be explicitly set 
and/or modified during execution of the analyzer via the "in" 
message! 



PRT 



26. 

this 



CELL CAN BE USED To ENABLE A DUMP-BY-M IX- I NDEX , IF SET 
TO A NON-ZERO DECIMAL NUMBER EQUAL TO THE MIX INDEX OF A JOB IN 
THE MIX AT THE TIME THE DUMP IS TAKEN, IT WILL CAUSE MEMORY AREAS 
BELONGING TO OTHER MIX INDEXES TO BE EXCLUDED FROM THE ANALYSIS, 
NOTE THaT IF THE CONTENTS OF THIS CELL DOES NOT CORRESPOND TO A 
VALID Mi X INDEX, *N0* NORMAL STaTE STACKS WILL BE DUMPED NOR 
WILL ANY NORMAL STaTE AREAS ASSOCIATED WITH ANY MIX INDEX BE 

printed! 
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00000870 
00000875 
00000880 
00000890 
00000900 
00000905 
00000910 
00000920 
00000945 
00000950 
00000960 
00000970 
00000980 
00000985 
00000990 
00000999 
00001000 
00001010 
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THIS CELL 



MAY BE USED ONLY in CONJUNCTION WITH THE 
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previously described common card convention of specifying an 
octal stack address as the first 5 digits of the common value, 
if made non-zeRo, then the decimal value entered in CELL 27 

WILL DETERMINE THE AMOUNT OF STACK DUMPED BELOW THE T0P-OF-STAC« 
VALUE, IF LEFT ZERO* THE DEFAULT AMOUNT OF STACK DUMPEDCAND 
ANALYZED) WILL BE ?00CDECImAL) WORDS, 



PRT 30, 

THIS CELL* IF SET 
TO BE DnURLE-SPACED, 



To i* will 

OTHERWISE, 



CAUSE THE PRINTOUT OF MEMORY 
THE PRINTOUT IS SINGLE-SPACED, 



PRECEDENCE OF OPTIONS AND SUGGESTIONS FOR COMBINING THEM 

AS STATED EARLIER* COMMON OPTIONS MAY BE USED SEPARATELY 
OR IN COMBINATION, ALTHOUGH MOST COMBINATIONS ARE ALLOWED* THERE 
ARE IMPORTANT EXCEPTIONS, THF RULES ARE! 

1. A COMMON VALUE OF 1 PRECLUDES The USE Of ALL OTHERS, 

2. A COMMON VALUE OF 5l2 PRECLUDES THE USE OF ALL OTHERS BUT 1. 

3. a Common value of 38a precludes the use of all remaining 

COMMON VALUES EXCEPT FOR 16 AnD 32, NOTE THAT 384 IS THE 
SUM OF 128+256, 

4, COMMON VALUES 2*4*8*16* AND 32 ARE TOTALLY INDEPENDENT AND 
ADDITIVE IN ALL POSSIBLE COMBINATIONS, 
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AFTERWA 
LOCATED 

B, M C0 
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MEMORY, 



SOME SPECIFIC EXAMPLES OF COMMON OPTIONS 

MM0Nb3572H32% 

S CAUSES A "STACK" AT 35721 TO BE DUMPED ALONG WITH 
TACKS; NONE OF MEMORY IS PRINTEDC384), THE MCP PRT 
TERS ARE NOT PRINTEDC32), AND SELECTED ARRAYS ARE 
16). THIS COMBINATION MiGHT BE USED TO PROVIDE A 

OF OUTPUT AFTER A MEMORY DUMP HAS BEEN ONCE ANALYZED BUT 
RDS FOUND TO HAVE MISSED A STACKCIN THIS CASE* 

NEAR ADDRESS 35721), 
MM0Nb12", 
S ELIMINATES ALL OBJECT CODE FROM THF PRINTOUT OF 



"C0mM0Nb66". 
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D, "ComMON«8", 

THIS TOGETHER W 
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AT AVAILABLE AREAS ARE ALWAYS PRINTED(2) 
EMORY IS PRATED IN OCTAL FORMAT 0NLYC64), 

ITH PRT 26 SET TO A VALID MIX INDEX REDUCES 
T OBTAINED DURING A MIX*ONLY DUMP, NO 

LEAVING ONLY NON-MCP CODE AREAS BESIDES 
THE MIX INDEX BEING DUMPED, FINALLY* THE ONLY NORMAL 
IS THE ONE BELONGING TO THE PARTICULAR MIX 
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00001750 


T 


0003 


JOOOOJO 


c 


00001760 


T 


0001 


JOOOOJO 




00001770 


T 


0001 


JOOOOJO 




00001790 


T 


0001 


JOOOOJO 


c 


00001800 


T 


0001 


JOOOOJO 




00001900 


T 


0001 


JOOOOJO 


-• ■- 


00003000 


T 


0001 


JOOOOJO 


c 


00003005 


T 


OOOJ 


JOOOOJO 


00003010 


T 


0001 


JOOOOJO 


- - --■ 


000030?0 


T 


OOOl 


JOOOOJO 


r 


00003030 


T 


0001 


JOOOOJO 




00003040 


T 


0001 


JOOOOJO "" 


- - 


00003050 


T 


0001 


JOOOOJO 


c 


00003060 


T 


0001 


iOOOOlO 


00003070 


T 


0001 


JOOOOJO 






L 



^ 



O i 

o 
o 
o 
,; o 
■p 

5° 

-■o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



MAY BE! nTScONTINUED IF NO FURTHER FILES ARE TO BE ANALYZED. 

A COMMON VALUE MAY BE INCLUDED fN THE COMMENT PORTION OF THF 
REMARKS ENTERED AFTER A "DPMT« COMMAND OR AFTER KEYING IN THE UNIT 
WHEN USiNG THE MEMORY DUMP DECK. THE SYNTAX I SI "COMMONs"<COMMON VALUE> 
, WHERE "COMMON" MAY BE ABBREVIATED AS "COM" AMD MUST BEGIN NO LATER 
THAN THE 140"TH CHARACTER OF THE MESSAGE, A COMMON VALUE ENTERED 
IN THIS MANNER OVERRIDES ANY WHICH MAY BE SUPPLIED BY LABEL EQUATION. 
ONE EXAMPLE IS! "DPMT C0MM0N*36* ALL JOBS APPEAR ASLEEP," 



BEGIN 

BOOLEAN 

INTEGER 

INTEGER 

BOOLEAN 

BOOLEAN 

BOOLEAN 

INTEGER 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

FILE IN 

FILE IN 

FILE SP 

FILF p 

PROCEDU 

BEGIN 

INT 



COMMON? 
PRT26; DEFI 
PRT27* DEFI 
PRT30) DEFI 
PRT31*X RFE 
PRT32J* USE 
MYSTACKADRJ 
DUMPAVAlL=CO 

monormalcode 
nomcpcode*co 

nUMPTABLES-C 
n ONTDUMPRT=C 
nUMPOCTALONL 
nUMPALPHAOCT 
nUMPALPHAONL 
NODUMPsREALC 
nUMPCESSPOOL 
MAXCOMMONVAL 
DISK DISK S 
MDUMP 2(2*5 
11(1. 10); 
4(3»l7)J 
RE PRlNTcOMM 

FGER I> 



NE 0NEMix»PRt26#j % FOR DUMPING ON 
NE MYSTACKSIZE-PRT27#> X IF *0. AM 
NE D0UBLESPACE=PRT30#;X dbl-space 



D FOR 

% IF 

MMON, 

= COMM 

MMON. 

OMMON 

OMMON 

Y = COM 

AL = CO 

Y«C0M 

COMMO 

ONLY* 

UE = 10 

ERIAL 

33) J 



debugg 
Common 

C46*l J# 
0N,[45« 
U4!l]# 
i[43il) 
*[42tlJ 
M0N,[4l 
MM0N,r4 
M0N.C39 
N),[39* 
COMMON. 
23#jX 

"MCP" 
% DISK= 



ING TH 
GTR ma 
I X CO 
lJ#IX 

}X 8*D 

#;« 16 

#JXC0M 

»U#$x 
s 1 3 #; 
*1J#;X 
23»3#; 
C 38* 1 3 



E ANA 

XCOMM 
MMON* 
COMMO 
ONT D 
sDUMp 
M0N = 3 
64*U 

X 128 
256* 

% 384 
ti% 5 



LYZER 

onValu 

2 DUMP 
N«4 DO 
UMP MC 
SELEC 
2 STOP 
NCONDI 
= DUMP 
DUMP M 
= OMlT 
12sDUM 



E» IT 
S AVA 
NT DU 
P COD 
TED A 
S DP 
TIONA 
MEMOR 

EMORY 
DUMP 
P ONL 



LY ONE JOB 

T BELOW MYSTACKADR 

DUMP OF MEMORY 



PNTS TO A STACK 
ILABLE AREAS 
MP TYPE 1*7*13 C0DI 
ECTYPEaliMlXcO) 
RRAY5 

Of prt 

L OCTAL ONLY DUMP 

Y IN ALPHA/OCTAL 
IN ALPHA ONLY 

OF MEMORY 

Y THE "ARGH" ARRAY 



"PRT"C2.30)J 
533. TAPE=513 



ONVALUES? 



X103- 



SWiTCH FORMAT COMINFO?* 



(///"THE 

("CnMMON 

("Common 

("COMMON 
("COMMON 
("COMMON 
("COMMON 
("COMMON 
("COMMON 
("COMMON 

("Common 
("Common 
("Common 
("For ad 

"PAGES 



COMMON 
YIEL 
YIEL 
PRIN 
OMIT 
OMIT 
CAU 



1 
2 
4 
8 
16 



32 OMl 
64 CAU 
128 CA 
256 CA 
384 CA 
512 DI 
ITJONA 
THE F 



VALU 
DS A 
DS A 
TS AV 
S NOR 
S MCP 
SES C 
TS TH 
SES M 
USES 
USES 
USES 
SPLAY 
L INF 
ILEIS 



ES AV 
STAND 
SPLAS 
AILAB 
MAL S 
CODE 
ERTAI 
E PRI 
EMORY 
MfMOR 
MEMOR 
NONE 
S THE 
ORMAT 
YMBOL 



AlLABLE ARE»"/)» 

ARD MEMORY DUMp AND ANALYSIS,"). 

H DUMP WITH NO ANALYSIS,"). 

LE AREAS,")* 

TATE CODE SEGMENTS,")* 

SFGMENTSt n >* 
N USER DEFINED ARRAYS TO BE PRINTED,")* 
NTjNG OF THE SORTED McP PRT IDENTIFIERS."), 

TO BE PRINTED ENTIRELY IN OCTAL,"), 
Y TO B E PRINTED eNTjReLY IN ALPhA/OCTAL , "> , 

y to be printed entirely in alpha,"), 
of the contents of memory to be printed,") 
contents of the argh array,"/), 
ion* consult the first several •»• 

/DUMPANL,")** 



FOR I*=0 STEP 1 UNTIL 13 DO WR I TE( P»C0MI NFOt I] ) t 



00003080 T 


0001*0000*0 


C 


00003090 T 


000110000*0 




00003100 T 


0001 » 0000 10 




00003110 T 


0001*0000*0 


c 


00003120 T 


0001 soooojo 




00003130 T 


0001 J 0000 8 




00003140 T 


0001*0000*0 


c 


00003150 T 


0001*0000*0 




00003160 T 


00015000 0*0 




00003170 T 


0001*0000*0 


c 


00003800 T 


0001*0000:0 




START OF SEGMENT ********** 2 




00003900 T 


0002*0000*0 




00004000 T 


0002*0000*0 




00004100 T 


0002*0000*0 




00004200 T 


0002*0000*0 


c 


00004300 T 


0002*0000*0 




00004400 T 


0002 i 0000 JO" 




00004500 T 


00025-0000*0 


c 


00005000 T 


0002*0000*0 




00006000 T 


0002*0000*0 




00007000 T 


0002*0000*0 


c 


00008000 T 


0002*0000*0 




00009000 T 


0002*0000*0 




00010000 T 


0002*0000*0 


c 


00011000 T 


0002*0000*0 




00012000 T" 


0002*0000*0 




00012500 T 


0002*0000*0 


(~ 


00013000 T 


0002*0000*0 




00016000 T 


"0002*0000*0 




00016500 T 


0002*0000*0 


( 


00016510 T 


0002*0003*3 


^— 


00016520 T 


0002*0007*2 




00016530 P 


0002*0010*1 


c 


00017000 T 


0002*0014*0 


00017010 T 


0002*0014*0 "" 




00017020 T 


0002*0014*0 


r 


START OF SEGMENT ********** 3 


' v *- 


00017030 T 


0003*000010 




START OF SEGMENT ********** 4 


c 


00017040 T 


0004*0000*0 




00017050 T 


0004*0000*0 




00017060 T 


0004*0000*0 


c 


00017070 T 


0004*0000*0 




00017080 T 


0004"? 0000*0 




00017100 T 


0004*0000*0 


c 


00017110 T 


0004*0000*0 




00017120 T 


0004*0000*0 




00017130 T 


0004*0000*0 


c 


00017140 T 


0004*0000*0 




00017150 T 


0004 * 0000 SO "'"' 




00017160 T 


0004*0000*0 


1 


00017170 T 


0004*0000*0 




00017180 T 


0004*0000*0 




00017190 T 


0004*0000*0 


1 


, 4 IS 190 LONG* 


NEXT SEG 3 




00017200 T 


0003*0000*0 "~ ""' 





v^ 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 

w 



o 
o 
o 
o 
o 
o 
o 
o 
o 



fNd printcommonvaLues; 

boolean dontprlntl|nks»mystackdumpedl 
format flnt(49(»*«) f » end of dump analyze 



W ,49("*»))J 



BY ESPOL 

PER MCP DEFINE 



BY ESPOL 



WERE INCLUDED 



INTEGER PRTmAX«INTmAX,InFOmAXj 

define prtbase=129#j!kfirst prt cell allocated 
define actualprtbase«5112#ix first prt cell as 
define prtsmax=100#j % upper limit of prts array 
real level, subl.evel»veRsion; 

INTFGER KLASS;X IDENTIFIER CLaSS»AS DETERMINED 

INTEGER NAMESIZE»NAMSSIZE> 

DEFINE MSNAMErNSNAME13=NAMErNSNAMEl],[8»lO]#J 

INTEGER iNAMESlZEtlNAMSSIZE; 

DEFINE lSNAME[ISNAMEl]5=INAMEClSNAMEl3.t8?iO]#; 

ARRAY SEGZErO[0{293; 

BOOLEAN MCP}* FILL/PRT DETERMINED WHAT MODULES 

STREAM PROCEDURE MOVECS»D>W); VaLUE Wj 

BEGIN SII=SJ DI«=DJ DS5* W WDS 1 END MOVE; 

PROCEDURE RUSTCOMMON) 

BEGIN 

Real my»dj 

ARRaY TrOJO]; 

FORMAT F(»X»,l5f M »"»Xi); 



REAL, STREAM PROCEDURE qCTDECCC); VALUE C| 

BEGIN SI*LOC C; Dl*L0C OCTDEC; DS*8DEC END; 

BOOLEAN STREAM PROCEDURE N0T50CT ADES( C ) ; VALUE C; 

BEGIN Sl*LOC C; 5(IF Sc GTR »7" THEN BEGIN TALLY*1; 
END ELSE SI*SI + 1)| N0T50CTaDES*TaLLY END; 

STRfAM PROCEDURE DEC0CTtDfOif02); VALUE D; 

BF6IN si*loc d; d i *oi ; ds*5qct; d 1*02; ds*3oct end; 



0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 

0002 

0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
******* 

T 0006 
T 0006 
******* 

G, NEXT 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



JUMP OUT 



END 



IF N0T50CTADES(D*0CTDECCC0MM0N))THEN D,C1»29]*0; 
DECOCTfD, MY, COMMON); 

if my=o then mystackadr«--i else 

begin % convert first 5 dlgjts of com as if they were octal digits 

write(t[*],f»my); 

read(t[*j,/,mystackadr)* 

END; 

bustcommon; 



procedure readarraycwordsize#aname,base>; 

VALUE W0RDSlZE»BASE? 
INTEGER WoRDSiZe»BASE; 
ARRAY A N AME[*]» 
BEGIN 

INTEGER I»SEGS,N; 

ARRaV BUFC05293; 

Njs=wORDS!ZE MOD 30; 

SEGSJ=(W0RDSIZE+29) DIV 3o; 

SEGRl=SEGS"i; 

FOR 1 ibO STeP 1 UNTIL s E GS [)0 



00017210 T 0003 

3 IS 10 LONG, NEXT 

00018000 T 0002 

00023000 T 0002 

START OF SEGMENT ******* 

5 IS 13 LONG, NEXT 

00024000 
00025000 
00026000 
00027000 
00028000 
00029000 
- 00030000 
00031000 
000.12000 
00033000 
00034000 
00035000 
00036000 
00037000 
00040100 
00040110 
00040120 

start of segment 
00040130 

00040140 

START OF SEGMENT 
7 IS 7 LON 

00040150 T 0006 

00040160 T 0006 

00040170 T 0006 

00040180 T 0006 

00040190 T 0006 

00040200 T 0006 

00040210 T 0006 

00040220 T 0006 

00040230 T 0006 

00040240 T 0006 

00040250 T 0006 

OOO4O26O T 0006 

00040270 T 0006 

00040280 T 0006 

00040290 T 0006 

00040300 T 0006 

6 IS 42 LONG, NEXT 

00041000 T 0002 

00042000 T 0002 

00043000 T 0002 

00044000 T 0002 

00045000 T 0002 

00046000 T 0002 

START OF SEGMENT ******* 

00047000 T 0008 

00048000 T 0008 

00049000 T 0008 

00050000 T 0008 

00051000 T 0008 



80007*2 
SEG 2 
5 00145 0" 

5001450 
*** 5 

SEG "2 

5O0145Q 

JQ0l4»0 

5001450 

5001450 

5001450 

5 001450 " 

8001450 

800)450 

5 00f4SQ 

5001450 

8001480 

5001583 

1001553 

5001553 

5001880 

5001850 

1001850 

***' 6 

5000050 

1000183 



L 



*** 

SEG 

50001 

50001 

80004 

50004 

50006 

50009 

$0009 

50011 

50011 

50017 

? OOl 8 

50020 

50021 

50029 

50037 

80037 

SEG " 
50018 

; 001 8 

I OOi 8 

50018 
80018 
5 0018" 
*** 
50000 
5 0001 
50003 
50004 
5 0006 



7 

6 



c 
c 
c 
c 

c 
c 
c 
c 



c 

c 



c 
c 
c 
c 
c 



V. 



o 
o 



o 



u 

'O 

; o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



BEGIN 

RFADCDlSK,30,BUFC*]); 

MOVE(BUFfANAME[BASE+30xl3» IF I #SFfiS OR NsO THEN 30 ELSE N)» 
ENDJ 

IF PRT32 THEN BEGIN WR I TEC P[ PAGE 3 ) i WR I TE( P[ DBL3 »<»BASE;= M » 
15, « SIZE-"»I5>*BASE»W0RDSIZE); FOR I!«BASE STEP 1 UNTIL 



fno 



BASf+WORDSIZE -1 DO BEGIN MOVECANAMEC 
WRlTE(P»l#BUF[*]) END END! 
OF READARRAYJ 



I3,buf[03»i)j 



bustc 

commE 

IF CO 

BEGIN 
READA 

close 

LEVEL 
SUBLE 
VERSI 
C0MME 
MCP! = 
NAMES 
NAMSS 
INAME 
INAMS 
END S 
INF0M 
% % % 

BEGIN 
L 



ommon; 

ntlto get options, use»»(mix)in25" and/or common control card* 

MMON THEN NAMESI ZE ?=?NAMSSI ZE l=?I NAMESl ZE f*I NAMSSl ZE ? = 1 ELSE 



9 IS 



B IS 



00052000 T 
00053000 T 
00054000 T 
00055000 T 
00056000 T 
00057000 T 
7 LONG, 
00058000 T 
00059000 T 
00060000 T 
50 LONG, 



RRAY(3 

(DISK) 

*■ SEG 

VEL»=" 
ON|* w D 
NT EAC 
BOOLEA 
IZF?=S 
IZf«=S 
Sl7E»* 
SiZFJa 
EGZERO 
AX|s/»x 
% % % 



0,SEGZER0r*3,0); 
J 

ZER0C03, [421631 
00"J % 2 DIGITS 
"I * i LETTER 
H TIME ANALYZER 
NCSEGZEROmm 
EGZFR0[2J + m # 
EGZEROC33IX # Of 



IS CHANGED INCREMENT ALPHABETICALLY} 

COMPlLE-TIME options 

OF McP PRT CELLSCABOVE ^200) 

woRnS The mcp identifiers occupy 



X101' 
XllO- 



SEGZER0r41+i;X 
SEGZER0r51?X # 
STUFF* 
PRTSmAX+3? 

%%%%%%% 



# OF INTRINSICS 

OF WORDS THE INTRINSIC 



IDENTIFIERS OCCUPY 



INNER BLOCK BEGINS %%%%%%%%%%%%% 



abfl eoprog; 



00061000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00068100 
00068200 
00068300 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00078000 
00079000 
00080000 
00080400 



label restart, xxj 
intfger i; 
Real Rj 
Real auxtypei 
boolfan sgltogj 

boolean n0dumpt0g) 

boolean n0m0,multl, repeating, reload; 

array prtname[0»43?x 

array tpname[0i23; 

define tdmfid=tpnamec03#, 

TDFlD~TPNAME[13#» 

FlLETYPE=TPN A ME[23#i 
ARRflY PRTS[0»PRTSMAX3; 
ARRAY TNFO[OIINFOMAX+13J 

ARRAY NAMErPRTBASE'PRTBASE+NAMESiZE "13? 
ARRAY NAMSrOINAMSSlZE-13* 
ARRAY INAMErOUNAMESlZE-13' 
ARRAY INAMS|-0!iNAMSSIZE-13 » 
ARRAY XNAME[ACTUALPRTBASEJ2013J 
ARRAY XNAMS[0U8l) 
DEFINE XSNAME[XSNAMEl3=XNAMEtXSNAMEl3,t8ll0 3#; 

integer mixmaxumixmax obtained in "getprtentr i e5" 

Real prto; boolean prtok; % prto contains prtc*»*3 entry, 

Real vjobnum,vbed> 

DEFtNe 5TAXMAXs80#JX 



00080500 
00081000 
00082000 



S103- 



00082100 
00082110 
00082150 
00082200 
00082250 
00082300 
00082310 
00082330 
00083000 
00084000 
00085000 
00086000 
00087000 
00088000 
00089000 
00090000 
00091000 
00092000 
00092100 
00093000 
00094000 



START OF SEGMENT ** 



00082050 T 



0008 


100075 


0008 


!0007« 


0008 


ooi i $ 


0008 


S0017S 


0008 


10019? 


0009 


10026? 


NEXT SEG 


0008 


10034$ 


0008 


10041? 


0008 


OO46! 


NEXT SEG 


0002 


!00i8t 


0002 


0019? 


0002 


100191 


0002 


!0022? 


0002 


0023? 


0002 


1002ft? 


0002 


0026? 


0002 


0028? 


0002 


10028? 


0002 


0029? 


0002 


f 0029 J 


0002 


0030? 


0002 


00 32? 


0002 


10033? 


0002 


OO34? 


0002 


10035? 


0002 


0035! 


0002 


0037! 


0002 


00 37? 


0002 


0037? 


******** 


0010 


0000? 


0010 


0000? 


0010 


oooo? 


0010 


0000? 


0010 


10000? 


0010 


0000? 


ooi'oi 


0060? 


0010 


10000? 


0010- 


0002* 


00101 


0005? 


0010 


'0005? 


ooio 


0005? 


0010) 


0005? 


0010 


0007? 


0010) 


0011? 


0010! 


OO16? 


0010 


'0020? 


0010) 


0024! 


0010) 


0028? 


0010 


0031? 


0010) 


0033? 


00101 


0033? 


0010 


0033! 


0010 


0033? 


0010J0033* 



2 
2 

2 
3 
3 


6 

2 


2 

3 
3 
1 
2 
1 
1 


i 

3 

3 

1 

" 

2 

1 

3 

3 

2 

2 " 

2 

10 







■q~~ 





0" 



1 

2 

2 

2 
2 — 

3 
3 
1 
1 
1 
T 
2 
3 
3 
3 
3 
3" 



c 
c 
c 
c 

L 

c 

c 
c 
c 



r 



c 



c 
c 
c 

c 
c 



c 



v -. 



o 
o 
o 
o 
■ o 

■jo 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



-1] 

W M 



ARRAY STAXtOlSTAXMAX 

:ommenTjThe defines beuo 

DEFINE BREAKOUT u 

CHECKLINK b 

DATACOM - 
DCLOG 

DCSPO - 

DEBUGGING - 

DFX p 

DISKLOG b 
DUMPP p 

INQUIRY = 

SAVERESULTS ~ 

SHAREDISK s 
STATISTICS 

AUXMfMM s 

RJE - 

B650OL0AD s 

SEPTICTANK b 

PACKETS * 

MONITORR e 

MAXOPT - 
ARRAY MEM0RY[0l63,0l5l 

DEFINF OCTADE = (DSt- 

DSI = 
DEFINE TYpMAXc49#? % 

define arro w * "*"#; 
define b - boolean*! 

DEFINE M«MEMORY#t X 
FF-[18I153#»X 

rr^c 33? 153#« * 

CTF=[18?33?15J#»X 
CTC*t33»33U5]#»* 

R0W*[33»6]## 

C0L = [39?93j*! .. 

DEFINEDMIXMAX*9# 

SLATE 

NSLATE 

LSLATE 

ESPBIT 

AVAIL 

MSTART 

MEND 

TOgLf 

BED 

PRT 

JAR 

INTRnSC 

sheet 

JOBNUM 

pryor 

NFO 

ISTACK 

PROCTIMe 

IOTIME 

CHANNEL 
FINALQUF 



; INTEGER MAXSTK#BEDSTK! 

UST CORRESPOND To THOSE IN FILL/PRTJ 



MCp, 
MCp, 
MCP, 
MCPi 
MCP, 
MCP, 
MCP» 
MCP, 
MCP, 
MCP. 
MCP, 
MCP, 
MCP, 
MCP, 
MCP, 
MCP, 
MCP, 
MCP, 
MCP, 
1 9# ; 

31 

RfSfT; 3C IF SB THEN 
ESETjSKiP S8))#> 



[471 
[46? 
[45! 
[44! 
[43! 
[42! 
[41! 
[40? 
[39! 
[38! 
[37* 
[36! 
[35: 
[34! 
[33? 
[32! 
[31! 
[30! 
[29! 



]#• 
"it* 

3#> 
]#» 

]#» 

]#r 
J## 

n> 
]#» 

3#, 
3#» 
]#» 
3#» 
3#» 
]#» 
3#» 
J#t 
3#» 
]#» 



X UPDATE AS OPTIONS ARE ADDED 



DSisSET ELSE 



XI 03« 

Xl03« 
X109- 
X103- 
X103- 



% 
% 



DEFINE 
DEFINE 



JSMIXMAX NOW OBTAINED FM PRT MOTHER 

s PRTS[00]#» 

= PRTS[013#» 

- PRTS[023#» 
* PRTS[033#» 
a PRTS[043#f 
= PRTS[053#» 
= PRTS[Q6]#» 
» PRTS[073#» 
s PRTS[0BJ#, 
= PRTS[12]#, 

= PRTS[i33#» 

b PRTS[i43#» 
= PRTSH5J#, 

■ PRTS[163#» 

- PRTS[i73## 
s PRTS[183#» 
b PRTS[193#» 
s PrTSC20]#» 
» PRTS[213#» 
« PRTS[223#» 
<= PRTS[233#» 



00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
OOJ09000 



001 
001 

oot 

001 
001 
001 
001 
OOl 
OOj 
001 
OOl 
001 
001 
001 
001 
001 
001 
001 
001 
OOl 



10000 
10100 
10200 
10300 
10400 
10500 
11000 
12000 
12500 
12600 
13000 
13150 
13160 
14000 
15000 
16000 
17000 
17100 
18000 
19000 



00120000 
00121000 
00122000 
00123000 
00124000 
00125000 
00126000 
00127000 
00128000 
00129000 
OOl 30000 
00131000 
00132000 
00133000 
00134000 
00135000 
00136000 
00137000 
00138000 
00139000 
001 40000 
00141000 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

C 

C 

P 

C 

C 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



OOlO 


800338 


0010 


50037? 


0010 


J0037* 


0010 


500375 


0010 


500378 


0010 


50037? 


0010 


80037! 


0010 


50037? 


0010 


50037? 


0010 


50037? 


0010 


500375 


0010 


?0037? 


0010 


50037? 


0010 


50037? 


001 o 


50037? 


0010 


50037? 


0010 


50037! 


0010 


500375 


0010 


500378 


0010 


(00378 


0010 


50037?" 


0010 


50037? 


OOlO 


S0037! 


0010 


50040? 


OOlO 


100405 


0010 


500405 


0010 


10040? 


0010 


10040! 


0010 


0040? 


0010 


10040? 


0010 


0040! 


0010' 


00408 


0010 


0040! 


00101 


00405 


00101 


0040? 


00101 


0040? 


0010! 


00405 


00101 


0040? 


"00 101 


0040? 


00105 


0040! 


00101 


OO4O8 


00101 


0040! 


00105 


00408 


0010 I 


00405 


ooios 


0040? 


0010! 


00408 


OOlO? 


0040? 


00l0» 


OO4O: 


0010! 


OO4O? 


00108 


004 8 


0010? 


0040? 


0010! 


00405 


OOlO! 


0040S 


00105 


00408 


0010? 


0040? 


OOlO? 


00405 


0010 5 


00405 
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c 
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C 

c 
c 
c 
c 
c 
c 
c 
c 
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c 
c 

c 



o 
o 
o 
o 

fo 

to 
to 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



locatque 
ioqueavail 

IOQUf 
UNIT 
TINU 
WAITQUE 

nextwait 

firstwait 

UbeltabLe 

MULTITABLE 

Rdctablf 

OPTION 

messageholder 
prntable 

INITIALIZE 

P1MIX 

P2MIX 

NOTHINGTODO 

STACKOVERFLOW 

RETURN 

DIRECTORYBUILDER 

DCQPTSTACK 

SAVERESULT 

AUXOATA 

AUXCODE 

EUIO 

PEOIO 

AVTABLE 

REPLY 

TRANSACTION 
DALOc 

memask 

CTABLE 
FS 

DBARRAY 

ATTACHED 

STATION 

DCQARA 

USERSTA 

TUSTABYMIX 

QTiMeS 

EUQ 

CIOROW 

aRgh 

YECH 

OIRECTORYFREE 
SYSNQ 

STATiONMESSAGEHOU 

LOOKQ 

PINGO 

DC19Q 

ILL 

RJEWaITQ 

noprocesstog 

MiXM A SK 

INF0MASK1 

TNF0MASK2 



PRTSt243#» 
PRTS[25]## 
PRTS[26]#» 
PRTSC273#» 
PRTS[283#» 
PRTS[293#» 
PRTS[303#» 
PRTSC313#» 
PRTS[323#f 
PRTS[33]#t 
PRTS[34]#, 
PRTS[35]#» 
PRTS[36]#* 
PRTS[37]#, 
PRTS[ 3 83#» 
PRTS[39]#» 
PRTS[403#» 
PRTS[4l3#» 
PRTSU2J#» 
PRTS[433#* 
PRTS[443#» 
PRTSt45]#t 
PRTS[463#» 
pRTS[473## 
PRTS[48]#» 
pRTS[493#* 
PRTS[50]#i 
PRTSC51 3## 
PRTS[523#» 
PRTS[533#. 
PRTS[54]#, 
PRTS[553*> 
PRTS[56J#» 
PRTSr57]#, 
PRTS r 58J#t 
PRTS[59]#, 
PRTS[60]## 
PRTS[613#» 
PRTS[623#» 
PRTS[633#» 
PRTS[643#» 
PRTS[653#» 
PRTS[663#» 
PRTS[673#. 
PRTS[683#> 
PRTS[693#» 
PRTS[703## 

dfR 

PRTS r 7l3#» 
PRTS[723## 
PRTS[733#* 
PRTS[743#» 
PRTS[753#» 
PRTS[763## 
PRTS[773#» 
PRTS[783#, 
PRTSr 793 #, 
pRTS r 803#* 



00142000 T 


001010040* 1 





00143000 T 


001010040*1 


( 


00144000 T 


001010040*1 




00145000 T 


001010040 5 1 


" 


00146000 T 


0010100401 1 


( 


00147000 T 


0010100401 1 


00148000 T 


0010100401 1 




00149000 T 


0010100401 1 


C 


00150000 T 


001010040*1 


00151000 T 


001 01 004 U 


._ __. „* . 


OOJ52000 T 


0010*004011 


r 


00153000 T 


0010100401 1 


\ v 


00t54000 T 


OO1OIOO4OS 1 




00155000 T 


0010100401 1 


c 


00156000 T 


00101004011 




00157000 T 


0010100401 1 




00158000 T 


0010100401 1 




00159000 T 


0010100401 1 




00160000 T 


0010100401 1 




00161000 T 


0010100401 1 


c 


00162000 T 


00101004011 


X- 


00163000 T 


0010?0040|1 




00164100 T 


0010100401 1 


c 


00164110 T 


0010100401 1 




00164120 T 


00101004011" 




00164130 T 


001010040*1 


r 


00164140 T 


00101004011 


V- 


00164150 T 


001 5 004 If" 




00164160 T 


0010100401 1 


c 


00164170 T 


00101004011 


00164180 T 


00101004011 


■- "- ■ — 


00164190 T 


0010100401 1 


c 


00164200 T 


001010040* 1 


00164210 T 


001010040*1 





00164220 T 


00101004011 


I 


00164230 T 


001010040* 1 


v_ 


00164240 T 


001010040*1 ■ 


■ - ■ - - 


00164250 T 


0010100401 1 


c 


00164260 T 


001010040* 1 


00164270 T 


001010040M 


" 


00164275 T 


0010*0040? 1 


c 


00164280 T 


0010*004011 


00164285 T 


0010*004011 




00164290 T 


00101004011 


c 


00164295 T 


00101004011 


00164300 T 


001010040*1 


" ' ~ ~ 


00164305 T 


001010040H 


c 


00164310 T 


00101004011 


00164311 T 


00 10 10040 11 




00164315 T 


0010100401 1 


c 


00164320 T 


001010040*1 


w 


00164325 T 


0010*0040*1 " 





00164330 T 


001010040*1 





00164335 T 


0010*0040*1 


00164340 T 


0010*0040*1^ 


- - -" - 


00164345 T 


ooioi ooaoi 1 





00164350 T 


001010040* 1 


00164355 T 


0010*0040*1 


"~ "~" "" 



' J 
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r 



O 

o 



u 
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;0 
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o 
o 
o 
o 
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o 



ccmaski 

CCMASK2 
CORE 

DISKoUNT 
EUW 

PUNTER 
LQUE 
LQaVaIL 
TAR 

JOQUeSLOTS 
DUMMy 
PROCEDURE FILLINFO; 
FILL INpO[*] WITH % 
"SLATE ",0,0.26, 



PRTSr 
PRTS[ 
PRTS[ 
PRTS[ 
PRTSt 
PRTS[ 
PRTSf 
PRTSC 
PRTS[ 
PRTS[ 
DUMMy 



8U#» 
82J#> 
833#» 

853## 
86]#» 
87J#» 
88J#» 
89 J »«# 
90J#, 

#;% 



"NSLATE 

"LSLATE 

"ESPBIT 

"AVAIL 

"MSTART 

"Mend 
"Togle 

"BED 

o»o»o»o, 

0»0»0*0, 

o»o»o»o, 

"PRT 

"JAR 

"INTRNSr 

"SHEET 

"JOBNUM 

"PRYOR 

"NFO " 

"ISTACK » 

"PRQCTlME" 

"IOTIME " 

"CHANNEL " 

"FINALQUE" 

"LOCATQUE" 

"IOQUEAVA" 

"IOQUE " 

"UNIT " 

"TINU " 

"WAITQUf " 

"NEXTWAiT" 

m FIRSTWaI" 

"LABELTaB" 

"MUlTiTaB" 

"RDCTABl.E" 

"OPTION " 

"MESSAGFH" 

"PRNTABLE" 

"INJTIALI" 

"P1MIX " 

"P2MIX " 

"NOTHINrT" 

"STACKOVE" 



»0»0»22» 
,0,0. 22, 
,0,0, 10, 
#0.0.23, 
.0.0.23, 
.0,0,23, 
.0,0,22, 
,0,0,26, 



0»0»26* 

0»0»26. 

0»0»26» 

0.0*26, 

0,0,22, 

0.0.26, 

0.0.26, 

0.0.26, 

0.0.26, 

0»0»26, 

0.0»26. 

0»0»26» 

0*0»26. 

"IL 

0»0#26, 

0»0»26» 

0,0.26, 

0,0,26, 

0,0,22, 

"T 

"LE 

"LE 

0#0»26» 

0.0»22» 

"OLDER 

0»0t 26. 

"Ze 

0,0,22* 

0.0.22. 

"ODO 

"RFLOW 



% 00 



",0.22, 



",0,22, 
",0,26, 
",0,26, 



",0,22, 
".0.10, 



".0,32, 
".0,32, 
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01 
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02 
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03 


% 
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05 
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06 
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07 
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33 
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% 
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% 


36 


% 


37 


% 


38 


% 


39 


% 


40 
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41 


% 


42 



00164360 T 
00164365 T 
00164370 T 
00164380 T 
00164390 T 
00164400 T 
00164410 T 
00164420 T 
00164430 T 
00J64440 T 

00164999 T 

00165000 T 
00166000 T 
00167000 T 

START OF SEGMENT 

00168000 T 
00169000 T 
00170000 T 
00171000 T 
00172000 T 
00173000 T 
00174000 T 
00175000 T 
00176000 T 
00177000 T 
00178000 T 
00179000 T 
OOlflOOOO T 
00181000 T 
00182000 T 
00183000 T 
00184000 T 
00185000 T 
00186000 T 
00187000 T 
00188000 T 
00189000 T 
00190000 T 
00191000 T 
00192000 T 
00193000 T 
00194000 T 
00195000 T 
00196000 T 
00197000 T 
00198000 T 
00199000 T 
00200000 T 
00201000 T 
00202000 T 
00203000 T 
00204000 T 
00205000 T 
00206000 T 
00207000 T 
00208000 T 
00209000 T 



0010*00^0* 
0010*0040* 
0O1O5004OI 
0010*0040* 
0010*0040* 
0010*0040* 
0010*0040* 
0010{0040: 
0010*0040* 
0010*0040* 
0010*0040* 
0010*0040* 
0010*0040* 
0010*0041* 

0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
001010042* 
0010*0042* 
0010*0042? 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042? 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 

0010*0042* 
0010*0042' 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042? 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
0010*0042* 
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"RETURN " 
"DIRECTOR" 
"DCQPTSTA" 
"SAVERE$U" 
"AUXDATa " 

"AUXCODr " 
"EUlO " 
"PEUIO " 
"AVTABLr " 
"REPLY " 
"TRANSArT" 
"DALOC " 
"MEMASK " 
"CTABLE " 
"FS " 
"DBARRAY " 
"ATTACHFD" 
"STATION " 
"DCQARA " 
"USeRSTa w 
"TUSTAByM" 
"QTiMeS " 
"EUQ « 
"CIDROW " 
"ARGH " 
"YECH " 
"DIRECTOR'* 
"SYSNO " 
"STATIONM" 
"LOOKQ " 
"PlNGO " 
"DC19Q " 
"ILL " 
"RJEWAITO" 
"NOPROCfS" 
"MIXMASK " 
"INFOMASK" 
"INFOMASK" 
"CCMASKj " 
"CCMASKp " 
"CORE " 
"DISKOUNT" 
"EUW " 
"PUNTER " 
"LQUE " 
"LQAVAIL " 
"TAR " 
"IOQUESLO" 
0}% 



0»0>32» 

"YBUlLDER"#0#10» 
"CK "»0»22. 
"LT "»0.26» 






>0»26. 





.0.26, 





>0.26. 





>0»26» 





•0,26. 


0, 


►0.26, 


»l 


[ON 





•0.26, 


0> 


>0»26# 


0< 


>0»26» 





•0*26, 


0< 


•0*26» 


0< 


•0*26. 





.0,26, 


0/ 


»0»26, 


0, 


.0,26, 


n 


[X 


0, 


,0,26, 


0, 


»0»26» 


0, 


.0,26, 


0. 


'0.26. 


Oi 


.0.22* 


"YFREE 


Oi 


>0»22» 


"1 


issage 


Oi 


.0.22, 


0, 


0.22. 


0, 


.0,22, 


0, 


.0.22. 


Oi 


.0.22t 


"STOG 


Oi 


0t22» 


t» 




"J 




0> 


»0»22» 


0. 


.0»22» 


Oi 


.0.22. 


0, 


.0»23» 


Oi 


>0.22» 


0, 


.0*26, 


Oi 


.0.26, 


Oi 


0.22. 


0. 


.0.26, 



"TS 



".0,26, 



",0,26, 



HO" 



0.22, 
"LDER 



"»22, 



".0.22, 

".0.22. 
".0.22, 



"»0»22, 
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cOmmfnt**************************************************************** 
for fach iofnttfier defied in the array "prts". there must be 
a corrfspondlnr, 4 word ent«y in "info". the fjrst three words 

ARE RESERVED FOR THE IDENTIFIER TEXT, THE FOURTH MUST CONTAIN 

THE class of the identifier as determined by the espol compiler. 

THIS CLASS APPEARS IN THE FIRST FOUR COLUMNS OF THE STUFF CARD 
FOR THIS IDENTIFIER. IF THE CLASS IS NOT KNOWN* A ZERO MAY BE 



11 IS 



0021 


10000 


T 


0023 


L 1000 


T 


0021 


12000 


T 


0021 


12100 


T 


002] 


12200 


T 


002] 


12300 


T 


002 


L2400 


T 


002' 


12450 


T 


002] 


L2500' 


T 


002 


12550 


T 


002 


12600 


T 


002] 


L2625 


T 


002' 


L2650 


T 


002 


12675 


T 


002] 


12700 


T 


002 


12725 


T 


002] 


L2750 


T 


002] 


L2775 


T 


002' 


[2800 


T 


002] 


12825 


T 


002] 


[2850 


T 


002j 


L2875 


T 


002] 


12880 


T 


0021 


.2885 


T 


0021 


12890 


T 


0021 


12895 


T 


0021 


12900 


T 


002! 


L2905 


T 


0021 


L 2910 


T 


002] 


12915" 


T 


0021 


12920 


T 


002] 


L2925 


T 


0021 


L2930 


T 


0021 


12935 


T 


0021 


2940 


T 


0021 


2945 


T 


0021 


[2950 


T 


002] 


2955 


T 


0021 


12960 


T 


0021 


12965 


T 


0021 


[2970 


T 


0021 


L2980 


T 


0021 


L2990 


T 


0021 


[2992 


T 


0021 


L2994 


T 


002] 


[2996 


T 


0021 


[2998 


T 


002! 


[2999 


T 


0021 


[3000 


T 


365 


> LONG. 


0021 


L4000 


T 


0021 


5000 


T 


0021 


6000 


T 


00?1 


7000 


T 


0021 


8000 


T 


0021 


9000 


T 


00220000 


T 



00 


10» 


00 


105 


00 


to I' 


001 


108 


00 


105 


00 


105 


00 


105 


00 


105 


00 


105 


00 


105 


00 


[05 


00 


1 ? 


00 


105 


00 


105 


00 


105 


00 


105 


00 


105 


00] 


to J 


00 


to? 


00 


105 


00! 


to; 


00 


to ; 


00 


tO! 


001 


105 


00 


105 


OOi 


10? 


001 


10? 


00 


105 


001 


to? 


001 


105 


001 


105 


00] 


to? 


001 


LOS 


001 


to? 


00! 


to? 


00] 


10? 


001 


to? 


001 


105 


00' 


105 


00 


to? 


001 


to? 


00 


105 


00 


105 


00! 


to? 


00 


to? 


00] 


105 


001 


105 


00 


105 


00, 


105 


NEX1 


r s 


00 


10 5 


001 


to? 


001 


10* 


00] 


[05 


001 


LO? 


001 


10? 


00] 


10 5 



0042 
0042 
00 4 2 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
00'4 2 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
00 4 2 
0042 
0042 
004 2 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
SEG 
0043 
0043 
0043 
0043 
0043 
0043 
00 4 3 
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o 



used in the 

INCREASE TH 
IDENTIFIER, 
"INfO" MUST 

INSTANCE* P 
FOR CONVFNI 
ASSIGN AND 
PROCID 
STRPRO 
BOOSTR 
REALST 
INTSTR 
BOOPRO 
REALPR 
INTPRO 
BOOID 

Realid 

INTID 

BOOARR 

REALAR 

1NTARR 

NAMEID 

intnam 

LABELI 

*************** 

PROCEDURE SETUP 
BEGIN 

STRfAM 



"Info" entry for it. however using a class of Zero will 
e time needed to locate the prt address of an 
note that although array "prts" may contain gaps 
contain a dummy entry comprised of all zeroesc see* for 

RTSC91, PRTSHoJi AND PRTSCliJ), 
ENCF» THE CLASS NUMBERS THAT THE 
WHICH MAY APPEAR ON a STUFF CARD 



ESPOL COMPILFR MAY 
ARE LISTED BELOW! 



CID 

PROCID 

RPROCID 

PROCID 

CID 

OCID 

CID 



AYID 

RAYID 

AYID 



EID 
D 



= 12* 
= 13* 
= 14* 
= 15* 
= 17* 
= 18* 
= 19* 
-2l# 
= 2J># 
= 23* 
= 25* 
= 26* 
= 27* 
= 30* 
= 31* 
= 3?# 



****************************************************** 

xnameandxnamsj 



*} 



PROCEDURE FILLXNaMsCxNAMs)? 



BEGtN 

Dt* 
DSI 
DS5 
DS» 
DS« 
DSI 
OS! 
DSJ 
DSI 
DS! 
DS« 
DSJ 
DSI 
DS« 
DSI 
DSJ 
DS* 
DSI 
DSJ 
END OF F 
ARRAY TC 

INTfGER 
FILL Tr* 
123 



START 



XNAMSJ 
8LIT'» 
8LIT" 
8LIT" 
8LIT" 
8LIT" 
8LIT" 
8LIT" 
SLIT" 
SLIT" 
8LIT" 
8LIT" 
8LIT" 
8LIT" 

16LIT" 
8LIT" 
8LIT" 
8LIT" 
SLIT" 

LLXNAM 

CTUALP 

.Jl 

with 
i»oo, 



NTl 

NT2 

NT3 

NTA 

NT5 

NT6 

NT7 

DATE 

CLOCK 

XCLOCK 

READY 

KLUMP 
FIRSTDECK 
LASTDECK"; 
DIRDSK "I 
MEMORY "; 
RRRMECH "I 
S> 

rtbasei213] i 
% xnames 



it; 

"; 
••; 
»; 
»•; 
"; 
"i 
"j 
"i 






»»; 



START 



119*1*02* 



00221000 


T 


00101004312 


(' 


00222000 


T 


0010i0043»2 




00223000 


"T 


00 10 10043 5 2" 


■ " — - 


00224000 


T 


OO1OIO04352 


r 


00225000 


T 


00101004312 


'~ 


00226000 


T 


00101004312" 





00227000 


T 


00101004312 


c 


00228000 


T 


00101004312 


v^. 


00229000 


T 


"001010043*2 


_ _ - 


00230000 


T 


00101004312 


c 


00231000 


T 


00101004312 




00232000 


T 


00101004312 




00233000 


T 


00101004312 


c 


00234000 


T 


00101004312 




00235000 


T 


00101004312 




00236000 


T 


00101004312 


c 


00237000 


T 


00101004312 




00238000 


T 


0010J0043I2 




00239000 


T 


00101004312 


c 


00240000 


T 


OO1OI004352 




00241000 


T 


00101004312 




00242000 


T 


00101004312 


c 


00243000 


T 


00101004312 


^_ 


00244000 


T 


0010100 4 312 




00245000 


T 


00101004312 


r 


00246000 


T 


00101004312 


"~ 


00247000 


T 


00101004312 


- — 


00248000 


T 


00101004312 


r 


Of SfqMeNT 


********** 12 


^- 


00249000 


T 


00i2l0000»0 




00250000 


T 


00121000010 


c 


00251000 


T 


00121000010 


00252000 


T 


00121000113 - 




00253000 


T 


001210002*1 




00254000 


T 


00121000410 




00255000 


T 


00121000552 


..... 


00256000 


T 


00121000651 


c 


00257000 


T 


00121000713 




00258000 


T 


00121000952 




00259000 


T 


00121001010 


c 


00260000 


T 


00125001153 




00261000 


T" 


0012*0012 5 1 




00262000 


T 


0012*001450 


c 


00263000 


T 


00121001512 




00264000 


T " 


0012*001611 




00265000 


T 


0012*00181 1 




00266000 


T 


001250020*0 




00267000 


T 


00121002152 




00268000 


T 


0012*0022*1 


c 


00269000 


T 


00125002353 


^_- 


"" 00270000 


T" 


0012*002450 ' 





00271000 


T 


00125002513 


c 


00272000 


T 


001250025*3 


00273000 


T 


00121002610 




OF SEGMENT 


********** j3 


c 


00274000 


T 


0012*002713 


v_- 


00275000 


T 


00125002713 


.. 



^J 



v.. 



-iO 



v. 



C 



U : 127»1»03» 00276000 T 0012*0027*3 C 

125*1»04» 00277000 T 0012*0027*3 

124*1*05* 00278000 T 00 12 * 0027 » 3 "" 

O 126*1*06* 00279000 T 0012*0027*3 (" 

128*1*07* 00280000 T 0012*0027*3 

112*1*08* 00281000 T ~" 00 12 1 0027 »3 

O 113*1*09, 00282000 T 0012*002783 r 

114*1*10* 00283000 T 0012*0027*3 

115»1»H» 00284000 T 0012*002783 

O 116*1*12* 00285000 T 0012*002783 r 

H7*2*13* 00286000 T 0012*0027*3 

118»1»15« 00287000 T 0012 8 0027 * 3 ~ 

O 122* 1 » 16* 00288000 T 001210027:3 

129*1*17* 00289000 T 001280027*3 

121»1»18;2 00290000 T 0012*0027'83 



L 



„ u 13 IS 54 LONG* NEXT SEG 12 f 

EULXNaMSCXNaMS); 00291000 T 00128002-7*3 



JJs A cTUAUPRTBASE"lJ 00292000 T 0012*0028*1 

',0 FOR IisACTUALPRTBASE STEP 3 UNTIL 211 DO 00293000 T 0012*0029*3 C 

XNAME[J»"J+i]«p0ST[i]t8l38li0]&TCi+l3[l8l33H5]&Tti+23[33l33M3]l 00294000 T 00i2«003i*2 

\ end setting up xnameandxnamsj 00295000 t 00121004112" ~" 

1: 12 IS 45 LONG* NEXT SEG 10 '" 

REAL LlNKTYPE* 00?95l00 T 0010*0043*2 

ARRAY AREATYPECOiTYPMAX+13* ATP[OI(TYPMAX+l)x23» S103- 00295H0 p 00108004382 """" 

O BOOLEAN ARRAYSFILLEDJ Xl03» 00295115 C 0010*005183 f 

PROCEDURE FILLAREATYPE; 00295120 T 00101005113 

C0MMENT***AREATYPEtL!NKTYPF3# WHERE LlNKTYPE IS THE TYPE OF MEMORY 00?95l30 T 0010*005153 

LINK TO BF PRINTED. CONTAINS A CODE WHICH DETERMINES THE FORMAT FOR 00?95l40 T 00i0!005l»3 C 

PRINTING THE AREA * 1=0CTAL» ?pALPHA/OCTAL* 3 = ALPHA ONLY. 00295150 T OOlO J 0051 ' 3 

DUmPMEMoRYAnDnOTESTACkS DETERMINES LlNKTYPE FROM C 31 63 OF A PRIMARY 00295160 T 0010*0051*3 " " 

O LINK, PRINTCORE THEN OBTAINS AREATYPE [L INKTYPE 3 AND PRINTS THE AREA 00295170 T 00l0«005l*3 

IN THE APPROPRIATE FORMAT, E L E M ENTS THRU TYpMAX CORRESPOND T 002951B0 T 00101005113 ^ 

POSSIBLE LINK TYPES. ELEMENT TYPMAX+1 IS USED TO CONTAIN THE DEFAULT "00295190 T 00 10 *005 1 t 3 ~ 

FORMAT CODE USED IN PRINTING AN AREA WHICH DOES NOT BEGIN WITH A LINK 00295200 T 0010*0051*3 r 

OR CONTAINS A CLOBBERED LINK, THE CONTENTS OF AREATYPE ARE NOT 00295210 T 0010*0051*3 

USED IF DUMPOCTALONLY* DUMPALpHoC TAL OR DUMPALPHAONLY ARE SET OR 00295220 T 0010»0051t3 -— - - 

IF AN AVAILABLE AREA IS BEING PRINTED WHOSE CORRESPONDING FORMAT 00295230 T 001Q8005183 

CODE IS NOT NEGATIVE, FOR EX A MpLE» A NEGATIVE CODE SUCH AS -2 CAUSES 00295240 T 001010051*3 

ROTH IN-USF AND AVAILABLE AREAS TO BE FORMATTED AS ALPHA/OCTAL. A 00295250 T 001080051T3 

CODE Of +2 WOULD CAUSE ONLY IN-USE A«EAS TO BE PRINTED IN ALPHA/OCTAL- 00295260 T OOlOiOOSl 1 3 r 

AVAILABLE AREAS, if PRINTED* WOULD BE PRINTED jN OCTAL ONLY.****? 00?95270 T 00l0*005l*3 ^ 

IF NOT ARRAYSFlLLED THEN BEGIN %\ 03- 00295275 C 001080051*3 

FILL AREATYPE[*3 WITH % l-OCTAL* 2*ALPHA/0CT AL* 3*ALPHA 00295280 T 0010*0053*2 f 

2'S UNKNO w NtO) 00295290 T 0010*0053*3 

START OF SEGMENT ********** 14 

\*% C0DEC1) 00295300 T 0010*0054*1 f 

2t% DATfi(2) 00295310 T 0010*0054*1 

2f% I0BUFC3) 00295320 T " 0010 * 0054 * 1" 

O 1»* ALGFIBC4) 00295330 T 0010*0054?! 

2*% INQrUF(5) 00295340 T 0010*005481 

2»% C0RfIB(6) 00295350 T 0010*0054*1 

O 1»X lNTSFG(7) 00295360 T 0010*005481 

2»X HEAnERrS) Xt09- 00?95370 P 0010*0054*1 

1»* < 9) 00295380 T OOlO * 0054 * 1" 

?»% LBL EQN(lO) X109- 00295390 P 0010*0054*1 r 

1»* fll) 00295400 T 0010*0054*1 

?»% STACKC12) 00295410 T 0010*0054*1" "~ 



^ 



L 



L. 



o 
o 

o 
o 



r \ 



,;o 
' ; o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



1 
1 
1 
1 

2 
2 

2 
2 

1 
1 

2 
2 

1 

2 
1 
2 
1 
2 
1 
2 
1 
1 
2 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



(13} 

(14) 

(15) 

(16) 

SPOUT MSG(in 

UVR0W(18) 

JARR0W(19) 

CIDR0W(20> 

(21) 

(22) 

(23) 

(24) 

DAL0CR0W(25) 

SHEfT(26) 

(27) 

Kfy?Nbuffe:R(28) 

FSR0W(29) 

(30) 

AVTaBLEOD 

TRACE TABLE(32) 

SEGDICT(33) 

STACK«PRT(349 

MCp-TABLES(35) 

IRSTACK(36) 

FPB(375 

CC(38) 

L,aRfL(39) 

MdUMP(40) 

ESPn!SK(41) 

L0G(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 



FILL ATPt*] WITH £ NaMfS Of MpMoRY aREA TyPfS. 
"UNKNOWN*", « '♦, % TYPE 



B 
»"T 



"CODE* "»" 
"DATA* "»« 
"I/O BUFF"#" 
"ALGOL FI" 
"INQUIRY " 

"COBOL FI" 
"REFNTRAN" 
"DISK HE A" 
"MAtNTENA" 
"LBL.EQN," 
"SEGMENT " 
"STaCK* » 
"INTRINSI" 
"SCRATCH " 
"OPSET* " 
"DIRECTOR" 



ER* 
»"B* 
'♦"BUFFER* 

'*"B* 



INTRNS" 

»"DER+ " 
'»"NCE* " 
r t" ENTRY* " 

#"ZER0* " 

t" 

»»C* 

»"DIRF 



:ECTR 
#"Y TOP* 



it 

fi 

y t! 

n 
it 



TYPE 
TYRE 
TYpE 
TYpE 
TYPE 
TYpE 
TYpE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYpE 
TYPE 
TYPE 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 





00295420 T 


0010500541 1 


c 
r 




00295430 T 


00105005451 






00295440 T 


0010I0054H 


. ._ 


J 


00295450 T 


001010054; 1 


t 


£109- 


00295460 P 


0010500541 1 


v 


£109- 


00295470 P 


00105005451 


- 


£109- 


00295480 P 


0010500545 1 


c 




00295490 T 


0010500545 l 


^ 




00295500 T 


0010 5 0054 5 1 






00295510 T 


0010500545 1 


c 


£109- 


00295511 C 


0010500545 1 


85109* 


00295512 C 


0010500545 1 




£109- 


00295513 c 


0010500545 1 


c 


£109- 


00295514 c 


0010500545 1 


£109- 


00295515 c 


OO105O054J1 





£109- 


00295516 C 


0010500545 1 


c 


£109- 


00295517 C 


OO10J005451 


£109- 


00295518 C 


OO1O5O05451 




£109- 


00295519 C 


0010500545 1 


c 


£109- 


00295520 P 


00105005451 


£109- 


00295521 C 


0010*0054 5 1"" 


~ 


£109- 


00295522 C 


OO1O5O05451 


c 


£109* 


00295523 C 


00105005451 


^-fc. 


£109" 


00295524 C 


0010500545 1 




£109- 


00295525 C 


0010500545 1 


( 


£109" 


00295530 C 


00105005451 


v ^_ 


£109" 


00295535 C 


00105005451 




£109- 


00295540 c 


0010J0054S1 


c 


£109* 


00295545 C 


00105005451 


£109- 


00295550 C 


00105005451 


- " - 


£109- 


00295555 C 


0010500545 1 


c 


£109- 


00295560 C 


0010500545 1 


£109- 


00295565 C 


00105005451 




£109- 


00295570 C 


0010500545 1 


c 


£109- 


00295575 C 


00105005451 


£109- 


00295580 C 


00105005451" " 




£109* 


00295585 c 


00105005451 


c 


14 


IS 50 LONG. 


NEXT SEG 10 


£103- . 


00295700 c 


00105005451 




£103- 


00295705 C 


00105005552 


Q 


START 


OF SEGMENT ********** 15 




£103- 


00?95710 C 


00105005651 





£103- 


00295715 C 


0010500565 1 


/*"*' 

1 


£103- 


00295720 C 


0010500565 1 


^_ 


£103- 


00295725 C 


0010500565 1 


._ - 


£103* 


00295730 C 


00105005651 


("" 


£103- 


00295735 C 


0010500565 1 




£103- 


00295740 C 


00105005611 " '"" 




£103- 


00295745 C 


001050056! 1 


c 


£103- 


00295750 C 


00105005651 


£103- 


00295755 C 


0010 5 0056 5 1 - 




£103- 


00295760 C 


00105005651 


c 


£103- 


00295765 C 


0010500565 1 


£103- 


00295770 C 


00105005651 '•- ■" 





£103- 


00295775 C 


00105005651 


c 


£103- 


00295780 C 


00105005651 


s S 


£103- 


00295785 C 


00105005651" 





u 

O 

o 

'o 

;, o 
; o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 



"SPOUT ME" 

"Labels* " 
m jar row*" 
"cin row*" 

"INQUIRY " 
"INtRINSI" 
"RJF INPU" 
"DC QUFUE" 
"DALOC RO" 
"SHEET EN" 
"STATION " 
"KEYIN BU" 
"FS ROW* " 
"DC 19 QU" 
"AVfllU DI" 
"TRACE TA" 
"SEfiMENT " 
"STaCK-PR" 
"MCP TABU" 
"I R STAC" 
"FILE PAR" 
"CONTROL " 
"LAREL RE" 
"MDUMP BU" 
"ESP DISK" 
"LOr INFO" 
"TYPE 43*" 



"TYPE 
"TYPE 
"TYPE 
"TYPE 
"TYPE 



44*" 
45*" 
46*" 
47*" 
48*" 



•'@@g)@@i@g)@n 



UT* 
RRAY< 



"SSAGE* 

H 
tt 

It 

"INP 

"C A 

"T* 

"* 

"W* 

"TRY 

"ROW 

"FFE 
n 

"EUE 
"SK 

"BLf 

"DIC 

"T* 

"ES* 

"K* 

"AM 

"CAR 

"COR 

"FFE 
«♦#. 

»* 
if 

♦i 
n 
it 
ii 



if 
ii 
it 
tt 
it 

.»» 
tt 

it 
it 
it 
»t 
it 
•t 
tt 
it 
it 
tt 
n 
ii 
ii 

BLOCK" 
D* " 
D* 

R* " 
ii 

tt 

ii 

ft 

tt 

n 
it 
n 



* 
R* 



TBL* 
T,* 



* TYPE 
% TYPE 
% TYPE 

* TYPE 
% TYPE 
2 TYPE 
2 TYPE 
% TYPE 
2 TYPE 
2 TYRE 
X TYPE 
2 TYPE 
X TYPE 
2 TYPE 
X TYPE 
X TYPE 

* TYPE 
2 TYPE 
X TYPE 
2 TYpE 
X TYPE 
X TYPE 

* TYPE 
2 TYPE 
X TYPE 
X TYPE 
2 TYPE 
X TYPE 
X TYPE 
X TYPE 
X TYPE 
X TYPE 
X END 



17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4 8 
F TABLE, 



ARRAYSFTLLED 5» TRUE! 
END) 

DEFtNe NeXTPAGF=WRITE(P[PaGf3>#; 

FORMAT STARSC20("******"))» 

STARZf *f"*"))* 
FORMAT hCPHDR("DCMCP,XVi,",A1,»."»A2»" COMPILE TJME OPTIONS!")? 



SWITCH FORMAT MCPOPTl»( 



"BREAKOUT") 

"CHECKLINK") 
"DATACOM") 

"DCLOG") 

"DCSPO") 

"DEBUGGING") 

"DFX") 

"DISKLOG") 

"DUMP") 

"INQUIRY") 

"SAVERESULTS") 

"SHAREDISK") 

"STATISTICS") 



2103- 
2103- 
£103" 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
X103«* 
2103" 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 
2103- 

2103- 
2103- 



2101' 



15 I 

START 

16 I 

START 

17 I 

START 



00295790 C 001 

00295795 C 001 

00295800 C 001 

00295805 C 001 

00295810 c 001 

00295815 C 001 

00295820 C " 001 

00295825 C 001 

00295830 C 001 

00295835 C 001 

00295840 C 001 

00295845 C 001 

00295850 C 001 

00295855 c 001 

00295860 C 001 

00295865 C 001 

00295870 C 001 

00295875 C 001 

00?95880 C OOl 

00295885 C OOl 

00295890 C 001 

00295895""C OOl 

00295900 C 001 

00295905 C 001 

00295910 C 001 

00295915 C 001 

00295920 c 001 

00295925 C OOl 

00295930 C OOl 

00295935 C OOl 

00295940 C OOl 

00295945 C OOl 

00295985 C OOl 

S 100 LON"G# NEXT 

00295990 C OOl 

00295995 C OOl 

' 00296000 T 001 

00297000 T 001 

of segment ****** 

00298000 T OOl 

S 12 LONG» NEXT 

00299000 P OOl 

OF SEGMENT" ****** 

S 12 LONG, NEXT 

00300000 T 001 

OF SEGMENT ****** 

00301000 T 001 

00302000 T 001 

00303000 T 001 

00304000 T 001 

00305000 T 001 

00306000 T 001 

00307000 T 001 

00308000 T 001 

00309000 T 001 

00310000 T 001 

00311000 T 001 

00312000 T 001 



050056? 
0500565 

o;O056; 

0500565 
010056* 
0100561 
0500565 
0*00565 
0500565 

050056? 
0500565 
0J0056S 
0500565 
J 0056* 
0500565 
050056? 
0*0056? 
Q?0056S 
0500565 
0500565 
050056? 
0100565 
0500565 
0500565 
050056? 
0500565 
0500565 
0100565 
0500565 
0500565 
0100565 
0500565 
0500565 

SEG 
0500565 
05005752 
0500575 3 
05005753 
**** 16 
65005753 

SEG 10 
05005753 
***'* 17 

SEG 10 
05005753 
**** 16 
85005753 
85005753 
8 5 0057 5 3 " 
85005753 
85005753 
8 5 00575 3 " 
85005753 
85005753 
8 5 00575 3 " 
85005753 
8 * 5 7 S 3 
85005753 



c 

c 

c 
c 
c 

c 

c 
c 
c 
c 
c 



r 



c 

c 
c 

c 
c 
c 
c 

r 



( ) 



\ ) 



o 
o 

o 
o 



;:-0 
•;.0 
"'O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



"AUXMeM") 

"RJp") 

»B6500L0A0 n ) 
"SEPTICTANK") 
"PACKETS") 
"MONITOR") 



ALPHA ARRAY I DC » 2 3 ; SUSED TO CONTAIN AN IDENT WHOSE PRT LOC IS SOUGHT 
PROCEDURE TABLELO0KUP(ID»LOC)jARRAY IDCOJ J INTEGER LOC* 
BEGIN 
INTEGER I,NJ 

BOOLEAN STREAM PROCEDURE GQTl DEnT( A, N* B ) * VALUE NJ 
BEGIN SfisAlDl tsBlTALLYJ-O? 

if N sc = Dc then taulyi»h 
goTident»s=TallY; 

END GoTlDENTl 

klass»=klass-ij 

FOR I? = 129 STEP 1 UNTIL PrTMaX DO 

IF Nl»NiiMEClMl8l30] NE9 THEN 

IF N,FF=LOc OR LOCO THEN 

IF KLaSS LeQ OR KLaSS = N A MeC 1 3 , C 3 : 5 ] THEN 

IF 60T!hFNT(NAMsCN,cr3tNla8xN,FF»IDi:03) THEN 

BEGIN 

LOc I =! J 

i i*prtmax+2j*foRce fall thru 

END) 

IF I GFQ prtmax +2 then else LOCIb-IJ 
END OF TABLELOOKUPJ 



18 



START 



DEFINE GETIDLOCCGET 
BEGIN 

FILL 

TABLE 
£ND#»S 
PROCEDURE FIXDEFINE 
BEGIN CoMMFnT****** 
THIS PROCEDURE 
IDENTIFIER DEFI 
ENTRY In "InFO" 
PERFORM A LINEA 
"NAMS" AND 80MP 
IDENTIFIER CAN 
LEFT UNCHANGED- 
IN »PRTS M t***** 

intfgfR i#loc; 



IDL0C1*GETtDL0C2,GETIDLQC3*GETIDL0C4)s 

IDC*3 WITH GFTlDL0cl»GETlDL0c2»GETlDL0c3; 
L00KUP(ID»GETIDL0C4)J 

S* 

***********************************$*******fc + $^ # + sjC £ 
IS RESPONSIBLE FoR FINDING THE PRT LOCATION OF AN 
NED IN "PRTS" FOR WHICH THERE IS A CORRESPONDING 

, it does this by calling "Tablelookup" to 

R SEARCH OF "NAMES" To LOCATE AN IDENTIFIER IN 
ARE IT WITH THE ONE GIVEN IN "INFO". IF AN 
NOT BE LOCATED IN "NAMS'% THE "PRTS" ELEMENT IS 
-OTHERWISE. THE ADDRESS OBTAINED IS STORED 
t^****************************************^**,,,^*; 



19 



INTfGER STREAM PROCEDURE TDLENGTH{A)J 
BEGIN LOCAL L»* SiisLOC L> DI*=*A* 

3C IF BSCsDC THEN JUMP OUT ELSE BEGIN TALLY J sTALLY+1 * 

sijsloc l end); idlength?=tally; 

END IDlENGHTH? 

fillinfoj 

for i»*o step 4 until infomax do 

IF (L0C!=IDLENGTH(lNF0CI]))s0 then else begin 
M0VE(INF0[Il»I0t0]»3)> KLASS ? - I NFO [ I + 3 3 * 



start 



00313000 T 


0018*0057*3 


c 


00313100 T 


001810057*3 




00313200 T 


0018*0057*3 




00313300 T 


00185005713 




00313400 T 


00l8?0057»3 


OO3135OO T 


00i8t0057?3 ■•" 


■-- - 


00314000 T 


0018*0057*3 


c 


S 108 LONG* 


NEXT SEG 10 


00315000 T 


0010*0057*3" ~ 




00316000 T 


0010*0060*1 




00317000 T 


0010*0060* i 


>*■. 


00318000 T 


0010*0060*1 


"' " 


OF SEGMENT ********** j9 


c 


00319000 T 


0019*0000*0 


N*. 


00320000 T 


0019*0000*0 




00321000 T 


0019*0000*1 


r 


00322000 T 


0019*0001*3 




00323000 T 


0019*0002*0 




00324000 T 


0019*0003*2 


c 


00325000 T 


0019*0004*0 




00326000 T 


0019*0005*2 " 


... 


00327000 T 


0019*0007*3 


c 


00328000 T 


0019*0010*0 


00329000 T 


0019*0013*3 





00330000 T 


0019*0018*1 




00331000 T 


0019*0019*2 


00332000 T 


0019*0020*0 -•■ 


— 


00333000 T 


0019*0021*2 


c 


00334000 T 


0019*0023*3 


00335000 T 


0019*0027*2 




S 30 LONG* 


NEXT SEG 10 


c 


00336000 T 


0010*0060? 1 


00337000 T 


0010*0060*1 




00338000 T 


0010*0060* 1 


c 


00339000 T 


0010*0060*1 


y- — ■ 


00340000 T 


0010*0060*1 




00341000 T 


0010*0060*1 


c 


00342000 T 


0010*0060*1 




00343000 T 


0010*0060*1 




00344000 T 


0010*0060*1 


c 


00345000 T 


0010*0060*1 




00346000 T 


0010*0060*1 




00347000 T 


0010*0060? 1 


c 


00348000 T 


0010*0060*1 




00349000 T 


0010*0060*1 "" 


~" 


00350000 T 


0010*0060*1 


1 


00351000 T 


0010*0060*1 


v__v 


Of SegMfNT ********** 20 


~ 


00352000 T 


0020*0000*0 


c 


00353000 T 


0020*0000*0 


00354000 T 


0020*0000* 1 -- 


— 


00355000 T 


0020*0002*0 


o 


00356000 T 


0020*0003*2 


00357000 T 


0020*0004*0" "■■ 




00358000 T 


0020!0005*3 


o 


00359000 T 


0020*0007*2 


00360000 T 


0020*0010*1 


f; 



u 



o 
o 
o 
o 
• ; o 
|o 

b 



u 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



TABLELOOKUP(ID#UOc)J 

PRTS[l/43*sIF LOc GTR THEN LOc ELSE PRTSU/43 END? 
KLASSJsO; 

IF PRT32, [4611] THEN FOR I 5 =0 STEP 1 UNTIL PRTSMAX DO 
WRlTECP»< ,, PRTSr'M3# rt 3e n » I 4> » I »PRTS[ I 3 ) I 

END FlXrNG DEFlNESi 

boolean stream procedure bltoncwib); 
value bj 

BEGIN 

SlIsWlSKlP B SBJ 

IF SB THEN TALLY'si; 

BlToNtaTALLY* 

fnd of ritonj 
procedure nextitem; 

BEGIN 

WRlTE(P)l 
WriTE(P[DBl3#STARS); 

END) 
PROCEDURE PRINTMCPOPTIONS; 
BEGIN 

WRtTE(PCDBL3*McPHDR»LfVEL»SUBLeVEL)J 
FOR lHBl3»0 f l5»l»2»3»«»5»6»7#8,9M8#l7»M»l<M6Ml»12 DO 
IF RIT0N(MCP»47-I) THEN WRI TE( P. MCPOPTC I 3 ) 5 
WRlTE(P[DBL3)? 



21 



20 



END OF 
DEFINE 



PRJNTMCPOPTIONSJ 



= U20)#, 

M0D0N[0*73J 
ITDCOI 93 j 



DATE 

CLOCK 

XCLOCK 
BOOLEAN ARRAY 
INTfGER ARRAY 
ARRAY RTD[0?53j 

deftne timeaNalyzed 
dateaNalyzed 
timetakfn 
datetaken 
timelasthl 
sincslasthl 
minutes 
seconds 

DAYS 
YEARS 
DEFINE DATX 

XCLOcX 
CLOCX 
TEMP 
KINDS 

MCPVeRSiON 
FORMAT OUT FMXXf«DATE 



- ITDt03#t 

- IT0C13*» 
5 ITDC23#» 
= ITDE33#, 

* ITDC^3#» 

* ITD[53#» 
= ITDC63*. 

- ITDE73#» 
» ITD[83#» 

- ITDC93#J 
= RTDC03#» 

* RTDC1J** 

* RTD[23#» 
= RTDt33#» 
= RTD[43#, 
= RTD[53#> 

ANALYZFD , M2# ,f /«, I2.»/ M »I2/ 



"TlMF ANALYZED »» IP»" l"» I2»" !"• 12) » 
X1(« M CP VERSION NUMBER "»I?/ 
"DATF TAKEN 'M2» M /"t I2i»/»»IZ/ 
"TIMf TAKEN "t I 2» " * "» 1 2, " l M 2) p 

ximarkxk m mcp version number ,f » a i « a * / 

"DATE TAKEN »>\ 2 * "/"» I 2» "/"• I 2 / 
"TIMf TAKEN »M2»"» M »I2» ,, :»M?), 



START 



00361000 T 


002050014 





C 


00362000 T 


0020*0015 


13 


c 


00363000 T 


002010022 







00364000 T 


002050023! 


2 "" 




00365000 T 


0020*0025 


2 


r 


S 7 LONG* 


NEXT SEG 


20 




00366000 T 


0020J0036 


1 




S 39 LONG. 


NEXT SEG 


10 


c 


00395000 T 


0010:0060 


1 




00396000 T 


0010 5 0060! 


1 




00397000 T 


001050060 


1 


r 


00398000 T 


001050061! 


2 


s— 


00399000 T 


ooio ; 0061 


3 " 




00400000 T 


001050062 


1 


c 


00401000 T 


001050062 


1 


^** 


00402000 T 


0010*0063' 


3 




00403000 T 


001050063 


3 


c 


00404000 T 


0010*0063! 


3 




00405000 T 


0010500681 







00406000 T 


0010500711 


2 


c 


00407000 T 


001050071) 


2 




00408000 T 


001050071 


2 




00409000 T 


001050071 


2 


c 


00410000 T 


001050081! 


2 




00411000 T" 


001050119 


3' 




00412000 T 


001050126 


1 




00413000 T 


001050130! 


1 




00414000 T 


001050132 







00415000 T 


001050132' 





1 


00416000 T 


001050132! 





v„ 


00417000 T 


001050132 







00418000 T 


001050135! 


3 


c 


00419000 T 


0010501381 





00420000 T 


001050140) 


1 ■■■ - 




00421000 T 


001050140) 


1 


1 


00422000 T 


001050140! 


1 


*— 


00423000 T 


001050140! 


r — — 




00424000 T 


001050140) 


1 


c 


00425000 T 


0010501401 


1 


00426000 T 


001050140 


1 




00427000 T 


001050140! 


1 


c 


00428000 T 


001050140) 


1 


%- 


00429000 T" 


0010JQ140) 


l" 




00430000 T 


001050140! 


1 


c 


00431000 T 


001050140) 


1 


N^. 


00432000 T 


0010 5 0140) 


"1 " 




00433000 T 


0010501401 


1 


c 


00434000 T 


001050140) 


1 




00435000 T 


001050140) 


1 




00436000 T 


001050140) 


1 


c 


OF SEGMENT ********** 


22 




004 37000 T 


0022»0i40) 


i~ " 




00438000 T 


0022*0140) 


1 


r 


00439000 T 


002250140) 


1 


~ 


00440000 T 


0022*0140) 


1 ■ ■ - - 




00441000 T 


0022*0140) 


1 


c 


00442000 T 


0022501401 


i 




00443000 T 


0022*0140) 


r ""' 





I * 



o 
o 
o 
o 
.o 
o 

"O 

o 
o 
o 
o 
o 
o 
o 

o 
o 
o 

o 



FMX2f»T!ME Of THE LAST HALT-LOAD ",I 2* " 5 "»I 2* " 8 "» I 2 ) * 
SYSIDCDUMP TAKEN ON SYSTEM »*Al), 

pTAPDSK(A4»" FILE CONTAINING DUMP jS ", A i , A6» "/"» A 1» A6) , 
FCOMVALf "COMMON VALUE USED IS "»I5)» 
FANALC"ANALYZER VERSI ON-", Al ) » 
FMX3("TiME SINCE LAST HALT-LOAD "* I 2» " 8 % I 2* " 8 "* 12) ? 

FORMAT BADBEDC"********* BAD BED ENTRY *********»)? 

FORMAT BADDATF ("BAD DATF TAKEN »..,♦"), 

BADXCLOCK C'BAD T j Mp TAKEN ,,,.."), 

badclockt"bad time of h/l")* 
Format badcell3("Word 3 has the Flag bit on*,,.,")? 

procedure times ( whenihrs t m i n»sec ) ? 
real when! integer sec»mln»hrs? 

BEGIN 
INTEGER T? 

IF WHEN LSS OR WHEN GTR 5184000 THEN HRS * *M I N 8 =SEC 5 = 100 ^OVERFLOW 
ELSE BEGIN T?*WHEN? 
HRSlsT DIV 216000; 
MlNjsT DIV 3600 MOD 60? 
SECJsT DIV 60 MOD 60? END; 
ENn OF TIMES PROCEDURE? 

PROCEDURE nATF S< ADA TE» MONTH* DAY* YEAR) J 
VALUE ADATf? 
ALPHA ADATe? 

INTEGER MONTH, DAY, YEAR J 
BEGIN 

REAL Y»D»M* 

LABEL ON? 

ARRAY DAYTABLE CO! 111* 

STREAM PROCEDURE COnV < YEAR»DAY,DAT )? 
VALUE DAT ? 
BEGIN 
SI t= LOC DAT? 
SI 5* SI +3? 
DI 5» YEAR? DS 5s 2 OcT? 

di ?s hay? ds ?= 3 Oct? 

END J 
FILL DAYTABLE [*] WtTh 
0, 31 ,59,90, 12O, j5 1,181 »212* 2«3» 273. 304, 334? 



CONV CY,D,ADATE)? 
IF CfY MOD 4) = 0) AND (Y/0) THEN 
BEGIN 

IF D "60 THEN 
BEGIN 
M i? 1? GO TO ON? 



22 IS 



00444000 T 
00444100 T 
00444?00 T 
00444300 T 
00444400 T 
00445000 T 
136 LONG, 
00446000 T 



00228014051 
00221014011 
0022 J Oi 40 J 1 
0022501405 1 
00225014081 
0022*01401 1 
NEXT SEG 10 
00105014051 



start of segment **********" 23 
23 is 9 long, next seg 10 

00447000 T 0010I0140U 

START Op SEGMENT ********** — 24 

00448000 T 0024S0140J1 

00449000 T 0024lQi40»l 
24 IS 20 LONG, NEXT SEG " 10 

00450000 T 00105014011 

OF SEGMENT ********** 25 



START 
25 



IS 9 LONG, NEXT "SEG 10" 

0010101401 1 

0010I0140U 

00105014051 

0010J0140I1 



00451000 
00452000 
00453000 
00454000 

START Of SEGMENT 
00455000 
00456000 
00457000 
00458000 
00459000 
00460000 
26 IS 18 LONG, 
00461000 T 
00462000 
00463000 
00464000 
00465000 
00466000 

START OF SEGMENT 
00467000 
00468000 
00469000 
00470000 
00471000 
00472000 
00473000 
00474000 
00475000 
00476000 
00477000 
00478000 

START OF SEGMENT 
28 IS 12 LONG, 



********** 



26 



0026 5 000010 
00265000382 
002650007«3 
00265000912 
00265001152 
00265001352 
NEXT SEG 10 
00105014051 
00105014051 
00105014051 _ 
00108014051 
0010501405 i 
00105014051 



********** 27 



00479000 
00480000 
00481000 
00482000 
00483000 
00484000 



00275000050 
00278000050 
00275000183 
00271000153 
00275000153 
00278000382 
00278000352 
00278000383 
002^8000450 
00275000481 
00275000481" 

002710005*3 
********** 28 

NEXT SEG 27 

T 0027 5 0006 5 1 

T 0O275O0O8I0 

T 00271001050 

T O0275O01OH 

T 00275001153 

T 00275001250 



c 
c 
c 

c 
c 
c 



c 
c 
c 

r 



r 

•■— 

C 

c 
c 
c 

c 
c 
c 

c 



V. 



LJ 



o 
o 
o 

■iO 

■O 

"J 

■ : 'o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



MOST A HALF-WORD THEN 

A FORMAT FOR FEWER OCTADES 

N 



ENDJ 

if d > 60 then d« = d-u 
end* 

For M 1= STEP 1 UNTIL U DO 

IF DAYTABLE CM] GEQ D THEN GO To ON? 
ON* 
MONTH I» M| 

IF M?0 THfN D» 5 ELSE SgO AHEAD 
DAY IM • DAYTABUEtM-Ui 
YEAR !-Y* 

E N D OF PROCEDURE DATE? *RCC 

INTFGER maxmod.maxcori 
INTfGER tablesloci 

BOOLEAN LNKSOK,AVALNKOK,SOMQKF,SOMOKB; 
% UTILITY PROCEDURES 
REAL PROCEDURE OCTALCN);* 

VALUE N| % 

INTEGER N;s 

% N.[i»233 B o so That tf n contains at 
?! octal if printed us»ns format, or 
% will be the octal representation of 

0CTal»=NiC45«3]&CIF N>7 ThEn OCTAlC N , [ 24 * 21 3 ) ELSE )C 3S 9 J 393 I 
REA|, STREAM PROCEDURE CHRS( AT* Sk I PPl NG i MANY) I 

value s«ipping»manyj % 

% returning the 7 or less chrs required 

BEGIN 

S I l*AT J SIj^SI+SKlPPlNGj 

DlJsLOC CHRS? DSSS8 U I T » " J DI*sDI-MANY) 

DS»*MaNY CHRI 
END CHRSI 
INTfGER PROCEDURE HIHALF<LQr)J 

VALUE LOCJ 

INTEGER LOc? % 
HIHALF«BCHRS(MrLOC.ROW f LOC,COL3,0,4J? % 
INTEGER PROCEDURE LOHAlFClOO? % 

VALUE LOCI 

INTEGER LOCJ % 
L0HaLF|pCHRS(M£L0C.R0W,L0CiC0L]#4»4)I * 
BOOLEAN STREAM PROCEDURE FLGB I T( WORD ) J 
BEGIN 

SI55W0RD1 % 

if sb Then tally*=i; % 
flgrit«=tallyj % 
end flgbiti % 

ARRAY Th!SROW»LaSTROH[OIH]| % 
SAVE ARRAY AUIMECOt 183I 

ARRAY B|,IME[0J183J 

BOOLEAN notprintcall»avalnk; 

BOOLEAN STREAM PROCEDURE CoMPAREWORDSC S»D» W) ; 

VALUE Wj 
BEGIN 

LABEL XI T; 

SHbSID!I=0| 

WC If 8 SC NeQ DC THEN JUMP OUT TO X IT ) ; 

TALLY 1 = 11 

xitjcompaRewordsj=tally; 



27 IS 



00485000 


T 


0027*0013 


!2 


C 

c 


OO486OOO 


T 


002750013! 


2 




00487000 


T 


0027»00l5 


!"3 




00488000 


T 


0027*0015 


13 


c 


00489000 


T 


0027*0017 


2 




00490000 


T 


0027*0020 


1 




00491000 


T 


0027S0021 


2 


r 


00492000 


T 


0027*0022 







00493000 


T 


002710024 





s 


00494000 


T 


0027*0026 


1 


c 


00495000 


T 


002710027 


3 




32 LONG, 


NEXT SEG" 


10 




00496000 


T 


0010*0140 


1 


r 


00497000 


T 


0010*0140 


•1 




00498000 


T 


0010*0140' 


1 




00528000 


T 


0010*0140 


1 


C 


00529000 


T 


0010*01401 


i 




00530000 


T 


0010*01401 


1 




00531000 


T 


0010*0140 


11 


c 


00532000 


T 


0010*0140 


1 




00533000 


T 


0010*0140! 


1 * 




00534000 


T 


OO1OSO14O 


1 


r 


00535000 


T 


0010*01401 


1 




00536000 


T 


0010*0148 


10 




00537000 


T 


0010*0148 





c 


00538000 


T 


0010*01481 







00539000 


T 


0010*0146 







00540000 


T 


0010*0149 


2 




00541000 


T 


0010*01491 


3 




00542000 


T 


0010*0151 


3" " ' — 




00543000 


T 


0010*01521 





C 


00544000 


T 


0010*0153! 


2 




00545000 


T 


0010*0153 


2 "■■" 




00546000 


T 


0010*0153 


2 


c 


00547000 


T 


0010*0153! 


2 




OO548OOO 


T 


0010*0160 







00549000 


T 


OOlOJOlfiO! 





c 


00550000 


T 


0010*0160! 







00551000 


T 


0010*01601 







00552000 


T 


0010*01671 


2 


c 


00553000 


T 


0010*01671 


2 


00554000 


T 


0010*0168 





" 


00555000 


T 


0010*01681 





c 


00556000 


T 


001010169* 


2 


00557000 


T 


0010*01691 


2 " 


- __ . 


00558000 


T 


0010*01701 





/'"■*' 


00559000 


T 


0010*0174! 


1 


•-— 


00559050 


T 


0010*0177! 


2 




00559100 


T 


0010*0179! 


3 


v 


00560000 


T 


0010*01791 


3 


N— 


00561000 


T 


0010*01791 


3 




00562000 


T 


0010*0179' 


3 


• 


00563000 


T 


0010*0180! 





^w 


00564000 


T 


0010*01801 







00565000 


T 


0010*0180! 


1 


r 


00566000 


T 


0010*0182. 


1 




00567000 


T 


0010*01831 


• 2 





: i 



Ui 



u 



u 



Q 

:0 

O 



o 
o 
o 
o 
o 
o 



o 



V_V 



o 



( ; 



END COMPARING WORDS; 
% 

DEFINE pRlNT(PRlNTl»PRlNT2}si F NODUMP THEN ELSE 
PRINTC0RE(PRINT1»PRINT2)#; 

% 

procedure printcorecfrom»too); 
value from,too| % 

INTEGER FROM, TOO! % 
BEGiN % 

DEFINE FORI e FOR I s s STEP I UNTIL H DO#; * 

STREAM PROCEDURE BU ILDCFROM' L INE» XAf NA*XB» NB* NC» AL* AO ) I % 

value From»na»nb»nc»al»ao; % 

BEGIN DIj»LINE;Sl j-LOc FROM j S I ? =SI +5; SK I p 3SBI 
5 OCTADEJ DS 5* LIT " M ; AO( Si 5* XA) 2! 

NACDS5=LIT»» "|2(DS»sLIT" »J8 OCTADE) ) I S II pXbi 
NB(DSfsLlT» ";2(DSJ-LIT" "18 OCTADE))! 
Nc(DS«3l9LlT w ")J DSjsLlT" h )J I 
ALCSTl=XAjNA{DSIsl«IT" M 5DS**8 CHR); X 
St »?XB;NBfDSJsLlT» "JDSI-8 ChR)? % 
NC(DS: = 9ltT«' '•)? DSI S 6 LIT « » ) ; EN0 B UlLD? « 
STREAM PROCEDURE MV(A,B)I BEGIN SH = AI D I I =B| DS I 9 WDS END MVj 
STREAM PROCEDURE EXpAnD( AlI NE» B^I NE, N ) I VALUE N? 

BEGIN DISbBLINE; 18( DS % = 8LI T" "); DIibBLINE; DIIsDI+75 
SllaALlNEl SHsSl+7; 
NC2C8 OCTADE; 015=01+1); SI|bSI+1)| 
END EXPAND? 

BOOLEAN matcm»first#Last»stard; 

INTEGER ItR»STARCOUNT| 
BOOLEAN ALfAOj INTFGER Z.ZH % 

label editline; 
if dumpalphaonly then aLj^true elsf 

IF DUMPALPHAOcTAL THfN AOSsTRUE else 

TF NOT DUMPOCTALONLY ThEN 

IFM»«AREATYPE[IF NOTPRINTcAlL ThEN LINKTYPE ELSE 
TYPMAX + U) GTR AND AVALNK THEN ELSE 

IF I«sABS(I)s3 THEN ALl-TRUE ELSE 

IF 1-2 THEN AOI^TrUEj 
ZIisCZibIF AL THEN 12 ElSE IF AL5=AO THEN 4 ELSE 63-1 i 

IF NOT (AL OR aO) THfN AOjbTRUE; 
AOjbaO AND TRUE! AL«=aL AND TRUE; % 

STARcOUNTtsiF Z«12 THfN 114 ELSE IF Z = 6 THEN 120 ELSE 119) 
F1RSTI=TRUf; 
START Is FROM; 

ERROR NUMBER 100 -- START, 

TOOisTOO, [32 » 163; FROM 5 =FR0M , [ 32 5 16J ; 
IF TOO>FRQM THEN % 
DO % 
BEGIN * 
IF NOT LAST 1= CTOO - FROM LEQ Z) THEN % NOT LAST LINE 
BEGIN 

IF FIRST THEN 
BEGIN 
IF f r OM.ROW = CfROM + ?),ROW ThEN MOVE CM [ FROM, ROW. FROM ,COL 3 * LASTROW, Z) 
ELSE 3! 

FORI MV(Mr(FR0M+D.R0W»(FR0M+l).C0L3» 



X103* 



00568000 

00568100 

00568200 

00568300 

00568400 

00569000 

00570000 

00571000 

00572000 

00573000 

START OF SEGMENT 

00576000 

00577000 

00578000 

00579000 

00580000 

00581000 

00582000 

00583000 

00584000 

00585000 

00586000 

00586100 

00586110 

00586120 

00586130 

00586140 

00587000 

00588000 

00589000 

00589100 

00590000 

00591000 

00592000 

OO593OOO 

00594000 

00594100 

00594200 

00594300 

00594400 

00595000 

00596000 

00597000 

00597100 



0010J0183S2 
001010184:0 
00101018410 
00101018410 
0010»0184»0 
001010184:0 
0010?018450 
0010J0184IQ 
OOlOSO'18410' 
00l0?0i84»0 
29 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
********** 



( 



T 00295000050" 

T O029JO00OJ0 

T 0029»0000»0 

T 0029:0001": 2 

T O02950O0553 

T 00295001152 

T 00295001651 

T 0029J002250 

T 00295002552 

T 0029 5002?! 3 

T 002950031«3 

T 002950033*2 

T 00295003352 

T 002950035:3 

T 00295003650 

T 0O295O041»2 

T OO295O04152 

T 00295004152 

T 00295004152 

T 00295004152 

T 00295004152 

T OO2950O4450 

T 00295004651 

T 00295004850 

T 00291005010 

T 00295005352 

T 00295005650 

T 00295005851 

T 00295006450 

T 00295006650 

T 00295006851 

T 00295007353 

C 0O2950O745O 



<<<< 

00598000 
00599000 
00600000 
00601000 
00602000 
00603000 
00604000 
00605000 
00606000 
00607000 
00608000 



<<<<<<<< 



T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 



0029 
0029 
0029 
0029 
0029 
0029 
0029 
0029 
0029 
0029 
0029 



<<<<<<<< 

5007450 
500765 1 
5007753 
5007850 
5007850 
I0080SO 
IOO8O8 1 
5008051 
5008152 
5008752 
5008753 



c 
c 
c 

L 

c 
c 
c 

c 
c 
c 
c 

c 
c 
c 



i J 



O! 
O 

o 

o 

]o 

io 

.■> 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

O 



IF FROM. 

else 2 



LASTROWfl]); 
STARDS^FAUSEJ 
IF Z-12 THEN GO EdULINEI ' 
F IRSTl^FALSEi 

end 

ELSE 
BEGIN 
ROW*CFROM+Z),ROW THEN MqVEC MC FROM, ROW» FROM, COL }* TH ISROW, Z) 

FORI MVCMtCFROM+D.ROW^CFROM+D.COLJt 
THlSROWC 1 3 ); 
IF CMATCHJ=COMPAREWORDS{THlSROWCO]»LASTROWtO].Z>) X 

AND NOT STARD THEN 
BEGIN 

if doublespace then 
write(pcdbu]»starz»5tarc0unt) else 
write(p»starz«starc0unt>; 
stard*=tRue? 

END? 

if not match t h en 

BEGIN 

stard»=falSei 

MOVE(THlSRoW,LASTRoW»Z)J % 

EnDI 

EnDI 
EnD;X IF NOT LAST 
IF LAST OR 

NOT STARD OR 

NOT MATCH THfN 



FDITLINfJ 



BEGIN 



END 



R is MjN 
IF(FROM+ 

BUILDCFR 
M[( 
Z-R ELSE 
BUILDCFR 
MCO 
IF Zp12 
BEGIN 

FIR 
IF 
BEG 
EXP 
WRI 
END 
END? 

IF DOUBL 

WRITE(P» 

ENDJ 

END UNTIL 

WRlTE(P)? 

PRlNTJ 3! 




STI S FALSEI 

DONTPRJNTLINKS THEN EUSE 

IN 

ANDCALlNE,BLlNF#2+REAL(AVALNK))l 

TF(P[DBL.3»l8,BLlNEt*3); 

i 

ESPACE THEN WRtTECPCDBL,3 » 18* ALINEC*] ) ELSE 
18,ALINE[*])J 

% 

(FROM l? FROM + Z) GEQ TOO? % 
% 



FORMAT T TeM(A5,» s " . 2( 0, XI ) , A5 , X89 ) ; 





00609000 T 


0029*0092*1 


c 




00610000 T 


0029*0095*3 






00610100 T 


0029 * 0096 JO 






00611000 T 


0029*0097*3 


c 




00612000 T 


0029*0098*0 


S- 




00613000 T 


0029* 0098 tO 






00614000 T 


0029*0098*0 


r 

V 




00615000 T 


0029*0098*1 


"s_ 




00616000 T 


002980104*1" 






00617000 T 


0029*0105*2 


c 




00618000 T 


0029*0110*1 




00619000 T 


0029*01 13 J 3 ■" 






00620000 T 


0029*0116*0 


' r 
\ 




00621000 T 


0029*0117*2 






00622000 T 


0029*0117*3 " 






00623000 T 


0029*0117*3 


c 




00624000 T 


0029*0126*0 






00625000 T 


0029*0134*0 






00626000 T 


0029*0135*2 


c 




00627000 T 


0029*0135*2 






00628000 T 


0029*0135*3 






00629000 T 


0029*0136*0 


c 




00630000 T 


0029*0136*1 






00631000 T 


0029*0138* 1 






00632000 T 


0029*0138* 1 


c 




00633000 T 


0029*0138*1 






00634000 T 


0029*0138*1 






00635000 T 


0029*0138*1 


c 




00636000 T 


002910139J3 




00637000 T 


0029*0140*0 ■■" 






00637100 T 


0029*0140* 1 


c 




00638000 T 


0029*0141*2 




00639000 T 


0029*0144* 1 - 






00640000 T 


002910146*1 


c 




00641000 T 


0029*0152*0 






00642000 T 


0029?0l56*0 






00643000 T 


002950159*2 


c 




00644000 T 


0029*0163*2 




00644100 T 


0029*0168*0 






00644200 T 


0029*016913 


L. 




00644300 T 


0029*0170*0 




00644310 T 


0029*0171*2 •"' 






00644320 T 


0029*0171*3 


c 




00644400 T 


0029*0172*0 




00644500 T 


0029*0174* 1 ~ 






00644510 T 


0029*0178*1 


c 




00644600 T 


0029*0178*1 






00645000 T 


0029*0178* 1 






00646000 T 


0029*0183*3 


c 




00647000 T 


0029*0168*1 


^— -■ 




00648000 T " 


0029*0188*1" 






00649000 T 


0029*0190* 1 


r- 




00650000 T 


0029J0194J 1 


— ' 


29 


IS 199 LONG. 


NEXT SEG'" 10 






00651000 T 


00l0»0l84«0 


c 


START 


OF SEGMENT ********** 30 


30 


IS 11 LONG. 


NEXT SEG"" TO 





c 



o 



o 






'O ■ C 

Ql boolean procedure pdatadesc<at»what); value at; 00651100 t ooio«oi84*o C 

integer at j real, whatjforward; oo65i?oo t ooio»oib<ho 

ARRAY LINEC0U6)) M03- 00652000 P 0010*0184*0 "~ 

(J PROCEDURE DISPLAYITCWHAT»RANGE,ADR); 00653000 T 0010*0187*3 f 

VALUE WHATtRANGE»ADR) 00654000 T 0010*0187*3 

INTEGER WHAT»ADR? 00655000 T 0010*0187(3 

Q BOOLEAN RANGE! 00656000 T 001010187:3 Q 

BEGtN 00657000 T 0010*0187* 3 

INTEGER H.L.T! 00658000 T 0010*0187*3" 

O START Of SEGMENT ********** 31 (~ 

BOOLEAN PPJ 00658100 T 0031*0000*0 

TlsIF PptsfADRaO) THEN WHAT ELSE ADR; 00658500 T 0031*0000*0 " 

I'O IF NOT PP THEN IF pDATADESCf T.H ) AND H,C8*lO] nEQ THEN ELSE 00658600 T 00311000312 f 

RANGEJaFALSE) 00658700 T 0031*0007*2 

WRiTECLINE[*]»ITEM»OCTALCT), 00659000 T 0031*0008*1 

Q 0CTAL(H*=HIHALF(T))» 00660000 T 0031*0016*0 C 

0CTAL(L*=L0HALF(T))» 00661000 T 0031*0019*3 

■ IF RANGE THEN OcTALC H, E 32 * 10 ] + L. CF"1 ) 00662000 T 0031*0023*2 

.■In eL * se " " ){ 00663000 T 0031*0026*1 r 

IF 1295WHAT AND WHAT<PRTMAX THEN 00664000 T 0031*0033*2 

il MOVE(NAMStNAMEtWHAT],CF3»LlNE[A3» 00665000 T 0031*0035*2 ~~" 

:: NAMEfWHATj.FF)* 00666000 T 0031*0038*0 

IF SGLTOG THEN WRiTe(P.17,L[NE[*]> ELSE 00666500 T 0031*0040*0 

IF PP THEN 00666900 T 0031*0045*2 

O WRITE(P[DBL]#17»LINE[*]); • 00667000 T 0031*0045*3 C 

END DISPLAYIT* 00668000 T 0031*0050*1 

31 IS 53 LONG. NEXT SEG 10 

O DEFINE DlSPLAY(DISPLAYi,DlSpLAY2>= 00668100 T 0010*0187*3 C 

DISPLAYIT(DISPLAY1,DISPLAY2.0)#J 00668200 T 0010*0187*3 

BOOLEAN PROCEDURE OPERANDc AT* WHAT ) ? % 00669000 T 0010*0187*3 " "' " 

O VALUE AT* % 00670000 T 0010*0187*3 C 

INTEGER AT; % 00671000 T 00l0*0i87*3 

REAL WHAT? % 00672000 T 00l0*0i87*3 

O BEGfN % 00673000 T 00l0*0i87*3 Q 

INTEGER R#C; % 00674000 T 0010*0187*3 

START OF SEGMENT ********** 32 

O IE FLGBITCM[R*BAT,R0W»C«"AT,C0L3) THEN % 00675000 T 0032*0000*0 r 

OPERANDjsFALSE % 00676000 T 0032*0004*0 

ELSE X 00677000 T 0032*0005*2 ~™ 

O BEGIN % 00678000 T 0032*0005*3 , p 

WHAT* S M!:R»C]J % 00679000 T 0032*0006*0 

OPERANf)»=TRUE? % 00680000 T 0032*0008*0 

ENo* X 00681000 T 0032*0008*1 p 

ENO OPfRAND* % 00682000 T 0032*0008*1 

32 IS 12 LONG. NEXT SEG 10 — 
O BOOLEAN PROCEDURE DESCRlPTORC AT, WHAT.K IND ) J 00683000 T 0010*0187*3 r 

VALUE AT! 00684000 T 0010*0187*3 

INTEGER AT; 00685000 T 0010*0187*3 

O R EAL WHAT. KIND* 00686000 T 0010*0187*3 C 

BEGIN 00687000 T 0010*0187*3 

INTEGER R*C; , 00688000 T 0010*0187*3 " 



IF {KlNn«=0CTAL(CHRS(MtR'sAT.R0W,Cl-AT.C0L].0,i)))>«40« THFN " ' 00689000 T O033$00o0*Q 



BEGIN 00690000 T 0033*0006*1 ~ " ~ 

O DEScRiPTOR» 5 TRUe; 00691000 T 0033*0007*2 r 

WHATJsCHRSCMtR.C], 1,7); 00692000 T 0033*0007*3 

END? 00693000 T 0033*0011*2 

o c 



u 



O i 

o 



o 
■;o 

■o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



end descriptor; 

BOOLEAN PROCEDURE PDATaDESG ( AT, WHAT ) ? 
VALUE AT? 

integer at) 
Real what? 

BEGfN 

integer kind? 

if descrlptor(at»what,k|nd) and 
kind lss "60" and kind geo "50" then 
pdatadesci=true; 

END? 

BOOLEAN PROCEDURE CONTROLDESCC AT* WHAT ) ? 
VALUE AT? 
INTfGER AT? 

Real what? 

BEGIN 

INTfGER typ? 

C0NTR0LDESClsDESCRlpT0R(AT»WHAT»TYP) AND 
TYP,[40li]*l AND 
TYp,C45»1]bO| 
END CONTROLDESC? 



33 IS 



START 



006 
1 

006 
006 
006 
006 
006 
007 

op se 

007 
007 
007 
007 



94000 T 
4 LONGt 



INTEGER MINLNK* 
BOOLEAN NEEDCHE 
ARRAY COMMJCOJ 
PROCEDURE 
BEGIN 
SgLTOqI 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
SGLTOGl 

end? 
procedure get 

BEGIN 

REAL ADR, 



minbad»maxbad»maxlnk? * 

CKAVAlLNKSjSSFALSE if dpmt 

19]? boolean comnt? 
mcpentries? 

=TRUe? 

(BEDtFALSE)? 
(PRT, FALSE)? 
(JAR, FALSE)? 
(INTRNSC, FALSE)? 
(SHEET, FALSE)? 

(JOBNUM, FALSE)? 
(NFOf FALSE)? 
(ISTACK, FALSE)? 
(WAITQUE^FALSE)J 
CPlMlX, FALSE)? 
(P2MIX, FALSE)? 
sFALSE? 

prtentries? 
wc»prtrow»u* 



DUMP 



REAL ADRR? 
INTEGER I»K| 
ARRAY MlXCOt40'3 1 

FORMAT PRT0UT(X10» M PRT 



LOCATIONS?"/ 



X20#"MiX'SX20»"PRT , V)» 
FlC X£0» A2»X20# A5)? 

FORMAT BADPRT("********BAD PRT DESCRIPTOR*******")? 



34 IS 

007 
007 
007 
007 
007 
007 
START OF SE 
, 007 
007 
007 
007 

35 IS 

007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 

START OF SE 
007 
007 
007 
007 

START OF SE 

007 

007 

37 IS 2 

007 



95000 
96000 
97000 
98000 
99000 
00000 

gment 

01000 
02000 
03000 
04000 
8 LONGt 



T 
T 

T 
T 
T 

T 
** 

T 
T 
T 
T 



05000 
06000 
07000 
08000 
09000 
lOOOO 
GMENT 
1 1000 
12000 
13000 
14000 
8 LONG* 



T 
T 
T 
T 
T 
T 
** 

T 

T 
T 
T 



15000 

16000 

17000 

18000 

19000 

19100 

20000 

21000 

22000 

23000 

24000 

25000 

26000 

27000 

28000 

29000 

30000 

30100 

31000 

32000 

33000 

34000 

GMENT 

35000 

36000 

37000 

38000 

GMENT 

39000 

40000 

LONG, 

41000 T 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

** 

T 

T 

T " 

T 

** 

T 
T 



0033 
NEXT 
0010 
0010 
0010 
0010 
0010 

0010 

***** 

0034 
0034 
0034 
0034 
NEXT 
0010 
0010 
0010 
0010 
0010 

ooio 

***** 
0035 
0035 
0035 
0035 

NEXT 
0010 
0010 
0010 
0010 
0010 
0010 

ooio 
ooio 
ooio 
ooio 
ooio 

0010 

ooio 
ooio 
ooio 
ooio 

0010 

ooio 

0010 

ooio 
ooio 
ooio 

***** 
0036 
0036 
0036 
0036 

***** 

0037 
0037 
NEXT 
36 



10011*2 
SEG 10 
50187*3 
»0187:3 
« 01871 3 
1018713 
t 01871 3 

S 01871 3 

*** 34 

5000050 

50001*3 

1000313 

5 0004 5 r 

SEG 10 

1018713 

10187*3 

* 0187* 3 

5018753 

*0i87l"3 

*0i87* 3 

*** 35 

50000*0 



JOOOl 

?0003 

*0005 

SEG 

J0187 

50187 

»0187 

J0190 

SO 190 

10190 

10191 

*0193 

»0i94 

$0196 

50197 

*0199 

50200 

»0202 

*0203 

10205 

10206 

10208 

50209 

*0209 

*0209 

10209 

*** " 

J0000 

»0000 

SOOOO 

50001 

*** 

50001 
50001 
SEG 
5 0001 



3 

2 

2 

10 

3 

3 

3 







3 

2 

1 



3 

2 

1 

0" 

3 

2 

1 



2 

2 

2 

2 

36 





'0" 

3 

37 

3' 

3 

36 

3 



C 

c 
c 
c 
c 
c 
c 
c 



c 



r 

v. 

r 

C 

c 

c 
c 
c 



^ 



u 



o 



- u 

o 

LI 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



label xit? 
label next? 
if not(pdatadescfprt.l) and llcf neq ano l.[88i0] gtr 

AND L. r 81 1 01 LSS ^j) T H EN BEGIN 

mixmaXjsdefinedmixmaxix for link ck 

write cp.badprtj; go xit end; 

ADR!" L* C33J 153 ; 
WCl= Li C8I 10 3 > 
Kl a "ll 

MIXMAXJ-WC"1| 
FOR 18 s 1 STEP 1 UNTIL (Wc-1) DO BEGIN 
IF PDATADESc(ADR+I»PRTROW) THEN ELSE PRTROW|*0; 
IF PRTROW =0 THEN 
GO TO NEXTI 
KlsK + n 

mixckjis n % save mix number 

MiXCKIpK+1]«= prtrowi 
NEXT? 

END! * OF FINDING pRTS & VALID MIXES; 
WRlTE(P.PRTOUT); 

WRlTECP.Fl.FOR IUO STEP 1 UNTIL K DO OCTAL CM I X [I ] , [ 33 : l 5] ) ) ; 
XjTt 
fNd of GETPRTENTRIESJ 

PROCEDURE DUMPARRAYCPRTLOCJJ VALUE PRTL0C8 INTEGER PRTLOC? 
BEGIN 

INTpGER LOC,SiZE«I* 

FORMAT FCX?,UiX2#2(0»Xi)); 

displaycprTloctrue); 

IF pRTLOC GEQ 129 AND PRTLOc LEq PRTMaX THEN 

IF pDATADESc(PRTLOC»LOC) THEN 

IF SlZCt«L0c«C8ll03 NEQ THEN 

IF LOc«-LOC,CF GTR THEN 

BEGIN 

FOR 11=0 STEP 1 UNTIL SiZE"l DO 

WRITE(P»F»I»OcTALCHIHaLfCLOc+I))»OCTALCLOHALFCLOC+I)))J 

WRITECPCDBLJ)* 
END; 
end dumparray; 

procedure dumpcesspool; 

BEGIN 

FORMAT HDRC"D25-ABN*ABN0RMAL'V"D24"RR «READ READY"/ 

m D23-BfLbBUfFER FINAL LOCATION"/ 

"D21-WR cWRfTE READY"/"D20-BSYsBUSY"/ 

»Dl8-NTRsDTcU NOT READY"/ 

"NOTEtBSY AnD NTRsADApTER/DTTU NOT READY"///); 

FORMAT WHATFILEC"C0RE PORTION OF SEPTIC /" . Al » A6.// ) J 



START OF SEGMENT ********** 
38 IS 9 LONG. NEXT SEG 
00742000 T 



36 IS 



00743000 
00744000 
00745000 
00746000 
00747000 
00748000 
00749000 
00750000 
00751000 
00752000 
00753000 
00754000 
00755000 
00756000 
00757000 
00758000 
00759000 
00760000 
00761000 
00762000 
00763000 
00763010 
54 LONG. 



00763020 
00763022 
00763024 

START OF SEGMENT 
00763026 

START OF SEGMENT 
40 IS 



39 IS 



START 
START 



IS 



10 LONG. 
00763028 T 
00763030 
00763032 
00763034 
00763036 
00763038 
00763040 
00763042 
00763044 
00763046 
00763048 

35 LONG, 
00763100 T 
00763105 T 
00763110 T 

of segment 
of segment 

00763115 T 
00763120 T 
00763125 T 
00763130 T 
40 LONG. 
00763135 T 



38 
36 
00365000153 
0036J0001I3 
0036S0001I3 
0036«0005»2 
0036*000810 
00368000982 
0036X0012} 1 
003680013*3 
00368001582 
0036(001680 
00365001782 
00368002183 
0036 J 0024 8 1 
003680025:3 
00368002650 
00368002782 
00368002881 
00368003051 

00368003182 
00368 003183 
0036800348 1 
00 368 0048 8 0"" 
00368004982 
NEXT SEG 10 
T 00105020982 
T 00105020982 
T 00108020982 
********** - 39 

T 00398000080 
********** 40 

NEXT" SEG "39 

00398000080 

00398000182 

00398000382 

0039800048 1 

0039800068 1 

00398000982 

00398000983 

00395001313 

0039500281 1 

00398003281 

0039800328 1 

NEXT SEG " 10 

00108020982 

00108020982 

T 00105020982 

********** m 

********** i\2 



42 
START OF SEGMENT ********** ' 43 



00428000080" 
0O42 J O0O08O 
00428000080 
00428000080 
NEXT SEG 41 
00418000080 



L 



i 



L 






c 

f~ 

c 
c 



c 
c 



L. 






c 

c 



'^ 



U , 



o 
■o 

: .o 

"'O 

o 
o 
o 

o 
o 
o 

o 
o 
o 
o 



REAL I»B»FR0M; BOOLEAN LOj 

FILf SEPTIC DISK SERIAL C2#60»MYUSE S INPUT)J 

DEFINE BUMPf = H«I + Uj 

define intsp=info#; 

ARRAY CC*NAM[0j3]| 
LaBfL LOOP»eOJ; 
STRfAM procfdure INIT(A); 
BEGIN DI JpA; DS»s32 LIT 

"PASS INTACT, INTWRJTE READ "1 

END init; 

STREAM PROCEDURE FLLC A, B» C# D# E) I VALUE B»C*DJ 
BEGIN Dl«sEJ 15(DSJ=8LiT" »); DlJsEJ SI»*AJ 

DS«=WDS? SH=LO C B' DI *=OI + l ; 

2(DS*s2DEC* A»»D!lDI»«Dl-2*DSlaFlLLlDI l»A;f)S»«UlTi»/»»)| 

Dl *=?0 I- 1 * DS?;*4L1T W "I 

SjtpSl+6) SKIP 2 SB! % START AT D25 

IF SB THEN DSJ=3LlT"ABN« ELSE DH«DI + 3J SKIP SB; XD25 

Ol J ssD I + 31 

IF SB THEN DSJ-3LlT tt RR »' ELSE DU«DI + 3; SKIP SB; SD24 

DH«DI + 3; 

IF SB THEN DSJ*3LIT"BFL" ELSE DIl=DI+3; SKIP SB; SD23 

DI l»Dl+3; 

SKIP SB;«IGNORE D22 

IF SR THEN DS» = 3LlT"WR «• ELSE DH*DI + 3| SKIP SB; SD21 

DIJ5DI+3; 

IF SR THEN DS»*3LIT M BSY" ELSE DIl=DI+3l SKIP SB? SD20 

DIIsDI+31 

SKIP SB; «IGN0Rf Dl9 

if sb then dsj=3lit m ntr" else du*dl + 3; *d18 
end fll; 

PROCEDURE TiM(AiCC); VALUE a; REAL Al ARRAY CCfO]; 
BEGIN INTEGER I»J; 

STREAM PROCEDURE FF(A»B)» 
BEGIN SI Iba; DI *s B ; 

^cds»b2 dec; dssslit «i«); 
diudi-i; ds:^s Lit » »»; 
end ff; 

FOR P = 3 STFP -1 UNTjL DO 
BFGIN CCCI]t=J»=A MOD 60; 

At«A 01 V 60; 
END; 

FF(CC»LINEI73); 
END TIM; 

BOOLEAN STREAM PROCEDURE GLUNK(A); 
BEGIN SII^A; IF SC* M " THfN TALLYj=t; 

GLUNKlsTALLYj 
END GLUNK; 

PROCEDURE MMM(B.I); VALUE B; REAL j»B! 
BEGiN REAL c; 

STREAM PROCEDURE M0Vf(A»B); 
BEGIN SI »=A; DIIbBI 

8(IF TOGGLE THEN DSJsL.IT m m ELSE 

IF SC*"*" THEN DStsCHR ELSE DSl*CHR); 



43 IS It LONG* NEXT SEG 41 

. 00763140 T 00411000010 

00763145 T 00411000010 

00763150 T 00411000610 

00763155 T 0041J0006JO 
00763160T" 0O41IO0O6J0 

00763165 T 00411000810 

00763170 T 004l»O008J0 
00763175 T 004l?00i0»0" 

00763180 T 004l«00l0»l 

00763185 T 004l?00l4U 

00763190 T 00411001411 

00763195 T 0041 100141 1 

00763200 T 004ll00l7J3 

00763205 "T 0041 J 00 18 JO" 

00763210 T 00411002011 

00763215 T 004ll002l«3 

00763220 T 004110022*0 

00763225 T 004l!0024«0 

00763230 T 0041J0024J0 

0076 3235 T 004l!0"b?6l 0" 

00763240 T 004U0026I1 

00763245 T 004110028U 

00763250 T 00411002811 

00763255 T 0041J002982 

00763260 T OQ41J0031J2 

00763265 T 0041 10031 12 

00763270 T 00411003312 

00763275 T 0041 * 00331 3 

00763280 T 00411003313" 

00763285 T 0041*003513 

00763290 T 0041S0035J3 

00763295 T 0041J003513 
START OF SFGMENT ********** 44 

00763300 T 00441000010 

00763305 T 0044J000010 

00763310 T 0044J000011 

00763315 T 0044 JOOOl * 3 

00763320 T 0044 J 0003 »2 

00763325 T 00441000312 

00763330 T 0044J0005S2 

00763335 T 00441000712 

00763340 T 00441000811 

00763345 T 0044J0010U 
00763350 T " 0044J0012JO 

44 IS 15 LONG* NEXT SEG 41 

00763355 T 004U0035J3 

00763360 T 0041 1 0035 » 3 

00763365 T 0041J0037J2 

00763370 T 0041J0037:2 

00763375 T 0041 J 0038 1 0" 

00763380 T 0041J0038J0 
START OF SEGMENT ********** 45 

00763385 T 0045J000OJ0 "" 

00763390 T 0045J000010 

00763395 T 0O45JO00OU 

00763400 T 0045 » 0001 » 3 



c 

r 

C 



C 

c 
c 
c 

r 

C 
C 
C 

c 
c 
c 
c 



c 



O 

o 
o 

o 

'O 

-O 

o 



o 
o 
o 



o 
o 
o 
o 
o 
o 
o 

o 



END MOVE? 

FOR C'aO STEP 1 UNTIL R-l DO 

MOVE(INTSPtBUMPlJ,LINErC])l 

WR|TE(P#B,LINE[*])) 

end; 

%%%%%%%%%%%%%%%%%%%%&! ART 
INITCNAM) J 

IF 0PERAND(T0GLE»I) AND BOOLEAN C I , [ 1 3 } 13 ) THEN 
IF pDATADEScCARGH»FROM) AND FROM«t8?103«128 THEN 
IF 0PERANDC(FR0MjsFR0M,cF)+l27#I) THEN LOj=TRUE 
ELSf GO TO EOJ EUSE GO TO EOJ ELSE GO TO EOJ; 
WRITECPCPAGE])} 
WRITE(P»WHATFILE»I»C6»63»I)J 
DISPLaY(ARGH*TRUE)J 
WRlTE(P»HDR)J 

GO fOJI % VOID THIS CARD TO DUMP SEPTIC DISK FILE 
FILL SFPTlC WITH "SePTjC »U* 
WHIl.E LO DO 

BEGIN READfSEpTIC»60»lNTSp[*])EE0J]» I»sO; 
LOOP* 

IF CBlB!NTSPCn)»C9?93sO THEN GO To EOJ? 

Ft,LCNAMCB,t7l23 3»B l C9l43»B t [14l4J»B,C21ll2]tUINE)l 

TIM(INTSPCBUMPI3,[18j30]»CO? 

WRITEfPtlO#LINEt*3); 

IF CB»BBt[33»15J)*0 THEN 

begin while b gtr 14 do 

begin mmmcm,pi b»=b-14; end; 

MMM(B#I)I 
ENDI 

writecp); 
if i/59 then 

IF GLUNK(INTSP[BUMPI3) THEN ELSE GO TO LOOP; 



00763405 
00763410 
00763415 
00763420 
00763425 



END; 

EOJJ IF 

BEG! 



LO THEN 

n closecseptic); lo:»false; 
if operanncfrom+125,1) and i ne9 thfn 

IF OPeRANdCFROM+62,1) AND (1=0 OR is64) THEN 

BEGIN fROMIsfROM+i; 

IF (BIs=512-(R?sfR0M.C0L)) LSS (ISs60) THEN 
BEGIN MOVE(MrFROM.ROW,Rj, INTSp.B)? 

RtsO; iss6o-bj from»=from+6o; 

END ELSE BJ=0J 

movec m[ from, row, r]. intsp[b3» i); 
ijbo; go to loop? 

end; end; fnd; 

INTEGER STREAM PROCEDURE McPCNT(A); VALUE Al 
BEGIN St;=L0C AJ SH=Sl + l; 

7(If TOGGLE THEN TALLY > sTaLLY+1 ELSE IF Sc NEQ "0" THEN 
TALLY * = TALLY + l>Sp=Si + 1)1 MCPCNT JsTALLY; 
END OF MCPCNTJ* 

INTEGER PRTC0DE; % SET TO 0»1 OR 2 BY CHECKPRTFILE 
PROCEDURE DATIMEJ 
BEGIN INTEGER H BOOLEAN B; 



STRFAM PROCEDURE PRTF I LEMESS( P » L» C ) ; 



value c; 



45 IS 18 LONGi 
00763430 T 
00763435 T 
00763440 T 
00763445 T 
00763450 T 
00763455 T 
00763460 T 
00763465 T 
00763470 T 
00763475 T 
00763480 T 
00763485 T 
00763490 T 
00763495 T 
00763500 T 
00763505 T 
00763510 T 
00763515 T 
00763520 T 
00763525 T 
00763530 T 
00763535 T 
00763540 T 
00763545 T 
00763550 T 
00763555 T 
00763560 T 
00763565 T 
00763570 T 
00763575 T 
00763580 T 
00763585 T 
00763590 T 
00763595 T 
00763600 T 
00763605 T 
00763610 T 
00763615 T 
00763620 T 
00763625 T 
41 IS 144 LONG. 
00765000 T 
00766000 T 
00767000 T 
00768000 T 
00769000 T 
00769900 T 
00770000 T 
00771000 T 
START OF SEGMENT ** 
00771100 T 



0045 
0045 
0045 
0045 
0045 
NEXT 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
NEXT 
"0010 
0010 
0010 
0010 
OOlO 
0010 
0010 
0010 

Hi**** 

0046 



J0003 

J0003 

10008 

IOOU 

J0015 

SEG 

J0038 

?0038 

J0040 

J0042 

J0045 

;0049 

;0049 

10053 

10064 

J0065 

10068 

10069 

10073 

J0073 

10079 

JOOfiO 

J0082 

J0086 

J0090 

10094 

J 0096 

!0098 

J0102 

10103 

J0103 

10107 

50107 

J 01 1 1 

loin 

10112 
10115 
»0U7 
* 1 2 1" 

50123 

«0lS>6 

10130 

10133 

»0134 

J0137 

10139 

SEG 

J0209 

10209 

10210 

J0212 

>02l3 

10214 

>0214 

J0214 

*** 

JOOOO 



2 

3 



3 

3 

41 









3 

2 

3 

3 



3 

1 

2 

2 

3 

3 



1 

1 





0" 





2 

2 

2 

3 

2 

3 

2 
3 
3 
3 

1 


3 

1 

3" " 

2 

10 

2" 

2 

1 



2 


0"" 



46 





c 

c 
c 

c 
c 
c 

c 



f 



c 
c 
c 

c 
c 
c 



c 
c 

c 



^ 



c 



o 
o 
o 
o 
■■=o 

( 

JO 



■ : o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

n 



begtn 
s 
c 

6 

G 

G 

M 

B 

F 

X 

END PR 

IF N 

IF 

I 



LABEL 
J IsPl 

I lad 
XiT 
MAY 
BAD 
AYBE* 
AD t 
IX » 
IT * 
TFILE 
OT CO 

NOT 
F FLG 

WRIT 
BE 



IF 

WRjTE 



EN 
FLGB 
(P»B 

BE 



PR 

WR 

W 

WR 

WR 
WRITEC 



END! 
IF S 

If 

WRIT 

nAT 

Tl 
WRfTE(p»F 
IF 
IF 

IF 
W 



EN 
TFILE 
ITECP 
RlTFC 
!TE(P 



MAYBE* 
DI**L} 

+c; 
; % o 

BE* % l 
I % 2 
DSl=9LI 
DSJB12L 

DSjbIOL 
DS*=32L 
MESS! 
MMON TH 
OPERAND 
BITCMCD 
F.CP»BAD 
GIN 
DATX » 
DATESf 

DJ % 

ITCMIXC 

ADXCLOC 

GIN 
XCLOCX 
TIMES( 

Dl * 

MESSCPR 

*8 # LINE 

P.FANAL 

,FTAPDS 



BAD»F 

dsu 



T»(Ap 
IT"(D 
IT"lN 
IT" » 

EN BE 
C3*M C 

ATE»R 
DATE) 

■ "CD 
DATX, 

OF DA 
LOCK, 
K) El 

i* M 

XCLOC 

OF 
TNAMf_ 

[*3)> 

fVERS 

K.FIL 



IX»XiT» 

4 wds; 



itecp,fcomval»REa 

P»XiMARKXI»IF Bis: 
THEN MCPVERSION 
THEN 1 ELSE I*M 
TIMETAKEN»MINUT 



PEARS "J GO FIX; 
EFINITELY »} Go FIX; 
CORRECT)"! 

J 

GIN 

PVfRSION) THEN WRITeCP«BADCELL3)j 
OW.DATEtCOLl) THFN 
ELSE 

ATf. ROW, DATE. COL]} 

DATETAKEN.DAY5,YEARS)J 

TE 

ROWiXCLOCK.COL]) THEN 

SE 

[XcLOCK.ROWiXCLOCK.COLJl 
X»TIMETAKEN» MINUTES* SECONDS)! 
XcL0CK 

»liNf»prtcode); 

ION) J 

ETYPE»TDMFlD.[6l63.TDMFlD t 
TDFID,[6I6).TDFID)I 

uccommon)); 

(It=MCPCNT(MCPVERSlON) GTR 6) 
,C6«63 ELSE " "* IF B THEN 6 ELSE 
CPVErSION»DATETAKEn»DAYS*YEARS» 

es.seconds); 



IF 1 = 



HAREDI 
PERANo 
F(P»SY 
FSCTIM 
MES(Tj 

mxx,da 

COMMON 
NOT CO 
FLGBIT 
RlTECp 
BEG 

IF X 
TIME- 



END i 



SK THEN 

CSYSN0*I) AND I GEO AND I LEO 3 THEN 

SJD»I+17); 

ECO), DATE ANALYZED* DAYS, YEARS) ! 

MEfl). TIME ANALYZED, MINUTES, SECONDS) J 

TEANALYZ ED, DAYS, YEARS, TIME ANALYZED* MINUTES* SECONDS) J 

THEN WRITECP)* 
MMON THEN BEGIN 
CMCCL0CK,R0W»cL0CK,C0L3) THEN 
»BADCLOCK) ELSE 
IN 

CLOCX ;- M[CLOCK,ROW»CLOCK,COL3; 
CLOCX LSS cLOcX THEN XCLOcX i s=XCL0CX + 51 84000} 
SCXCL0CX-CL0CX*TIMELASTHL« MINUTES* SECONDS)! 
WRITECP»FMX2»TIMELASTHL»MINUTES*SEC0NDS)1 
T I MES( CLOCX* Si NcSLASTHL* MINUTES* SECONDS)! 
WR I TE(P t DBL 3 *FMX 3* SiNCSLASThL* MINUTES, SECONDS)! 

XOF CLOCK 



ENDJ* 



FND! 

of datime 



46 IS 



00771105 T 


0046J0000 


so 


c 


00771110 T 


004610000 


10 




00771115 T 


0046*0000 


* 1 " ' " " 




00771120 T 


004610001 


12 


r 


00771125 T 


0046*0001 


>3 




00771130 T 


0046*0001" 


»3 




00771135 T 


004610002 


10 


r 


00771140 T 


0046*0003 


13 




00771145 T 


0046*0006 


10 




00771150 T 


0046*0007 


13 


c 


00771155 T 


004610012 


10 




00772000 T 


0046*0012 


11 




00773000 T 


004610014 





c 


00774000 T 


0046*0019 


2 




00775000 T 


0046*0022 


10" 




00776000 T 


0046*0025 


3 




00777000 T 


0046*0026 


(0 




00778000 T 


0046*0029 


IT" 




00779000 T 


0046*0032 





r 


00780000 T 


0046*0032< 





^— 


00781000 T 


0046*0035 


12 




00782000 T 


0046*0038 


1 


c 


00783000 T 


0046*0039 


!2 




00784000 T 


0046*0042 


11 




00785000 T 


004610045 


2 


c 


00785400 T 


0046*0045 


12 


v -~ 


00785500 T 


0046*0046 


r 




00785550 T 


0046*0051 


2 


c 


00785600 T 


0046*0058 





v„ 


00785610 T 


0046*0068! 


o 




00785700 T 


0046*0075' 


2 


\_ 


00786000 T 


0046*0084 







00787000 T 


0046*00911 


2 




00788000 T 


0046*00981 





c 


00789000 T 


0046*0107 


2 




00790000 T 


0046*0114 


o "" 




00790100 T 


0046*01141 





r 


00790110 T 


0046*0115 


2 




00790120 T 


0046*01181 


i 




00791000 T 


0046*01291 


2 


c 


00792000 T 


004610132 





^ 


00793000 T 


0046*0i37i 


3 ' 




00794000 T 


0046*0153! 


2 


c 


00795000 T 


0046*01581 







00796000 T 


0046*0159! 


2 




00797000 T 


0046*0162! 





r 


00798000 T 


0046*0165! 


3 




00799000 T 


0046*0166! 


" 




00800000 T 


0046*0169! 


3 


C 


00801000 T 


0046*0173) 


2 


00802000 T 


0046*0180! 


" 




00803000 T 


0046*0191! 


2 


c 


00804000 T 


0046*0193! 


3 




00805000 T 


0046*02051 


2 




00806000 T 


0046*0205! 


2 


c 


00807000 T 


0046*0205! 


2 




208 LONG* 


NEXT SEG 


io 


C 



u 



O 

o 

O 

Jo 

o 



PROCEDURE PR!NTaRRAYROW(PRtLOcmNX)J 



u 

o 

o 



o 



o 
o 
o 
o 

o 
o 
o 



VALUE PRTLOCMNX; 
INTEGER PRTL0C»INX> 



BEGIN 

INTfGER 



U0C»SIZEI 



BOOl.EA 

LABEL 

STREAM 

BEGIN 

S 

3 

A 

S 

D 

n 

END FI 
IF TOG 
DlSpLA 
INXjsA 
COMSAV 

COMMON 
DBLSAV 
DOUrLE 
IF PRT 
AGAIN* 

IF PDA 

IF r St 

IF TOG 

BEGIN 

D 

F 

W 

T 

G 

END; 

COMMON 

DOUrLe 

FND printa 

DEFINE PRI 
PR! 
DEFINE PA= 
COMMENTj T 
INDIVIDUAL 
EITHER 1 
IN GENERAL 
DEFINE AN 
IN "FILL IN 
"PRInTArRA 
"PrINTArRA 
NOTE THaT 
C0MM0N=16J 
PROCEDURE 
BEGIN 

INTFGE 



N tog.comsave.dblsavej 

AGA INI 

procedure fixlinecline»inx)j value inx; 
local a*b; 

I **LlNE*4(Sl J5SI+6)J 

2(IF SCs" " THEN JUMP OUT ELSE S||sSl+l)J 

»=si* dusa; dss =li t**c "5 a«=di* 

MsLOc INX) DS»s4 dfc; b*=di; 
IJ=AJ DS»s3 FILL? Dl *sB* 

si=3LiT»s*] m ; 
xline; 

8sBOOLEAN(INX t tl?l3) THEN 

YCPRTlOCTRUE)* 

BS(INX); 

EJsCOMMONJ 

»=FALSEI 

e*=doublespacej 
spacejsTrue; 

LOC GEQ 129 AND PRTLOc LEQ PRTMaX THEN 

TADESc(PRTLOC»LOc) THfN 
ZElcL0C,c8H0]) NEQ THEN 

then print cloc»sloc,cf*min(maxcor#loc*size)) 

lSPLAYIT(PRTLQC#TRUE»pRTLOCi=LOC,CF+INX); 

IXLINECLINE»INX); 

RITECP£DBL3*15»LINE[*]); 

OGJ-TrUEJ 

AGAJNs 

teCOMSAVEl 

spacei^dblsave* 

RRAYR0W) 



NTARRAY(PRINTARRAYI)- 
NTARRAYR0WC PRINTARRA Yi , M ) #» 

printarray##parow=printarrayrow#; 

he following procedure is intended to be modified to suit 
user debugging requirements, it allows an array, 

R 2 DIMENSIONAL* TO Be DISPLAYED WITH A MINIMUM OF EFFORT. 
, A 3 CARD PATCH IS NFCESSARY To THE ANALYZER* ONE CARD T 

flement tn "prts", sequence #q01?1 000, another to make an £ 

fo"#Se:quence #ooi65ooo» and a Third to call below on 

y»cor "pa") for i dimensional arrays or on 

yrow'cor "parow") for 2 dimensional arrays, 

the procedure "pr intselectedarr ays" is called only when 



ELSE 



PRlNTSELECTEDARRAYS} 
R U 



IF nUMPTABt-ES THEN 







C 


00807100 T 


0010*0214*0 


c 


00807H0 T 


001010214*0 




00807120 T 


0O10JO214S0 ■ - - - 




00807130 T 


0010J02145Q 


c 


START Of SFGMENT ********** 47 




00807140 T 


0047*000080 




00807150 T 


0047*0000*0 




00807160 T 


0047*0000*0 




00807170 T 


00471000010 




00807180 T 


00471000050 


c 


00807190 T 


0047*0001*2 




00807200 T 


0047»0003;2 




00807210 T 


0047*0004*0 


c 


00807230 T 


0047*0005*2 




00807240 T 


0047*0005*3 




00807250 T 


0047*0006*1 


c 


00807260 T 


0047*0006*1 




00807270 T 


0047*0008*0 




00807275 T 


0047*0010*0 


c 


00807280 T 


0047*0011*2 




00807290 T 


0047*0011*3 




00807295 T 


0047*0012*1 


c 


00807300 T 


0047*0013*2 




00807310 T 


0047*0014*0 




00807320 T 


0047*0015*3 


c 


00807330 T 


0047*0017*2 




00807340" T 


0047*0018*0 




00807350 T 


0047*0020*0 




00R07360 T 


0047*0028*1 


X— 


00807370 T 


0047*0029*2 


. -_- — 


00807380 T 


0047*0031*3 


•C 


00807390 T 


0047*0033*3 




00807400 T 


0047*0037*3 """ 




00807410 T 


0047*0038*1 


c 


00807420 T 


004710039*2 




00807430 T 


0047*0039*2 




00807435 T 


0047*003953 




00807440 T 


0047I0040U 




47 IS " 44 LONG, 


NEXT SEG 10 




00807450 T 


0010*0214*0 


c 


00807460 T 


0010*0214*0 




00807470 T 


0010*0214*0 




00807480 T 


0010*0214*0 


c 


00807482 T 


0010*0214*0 




00807484 T 


0010*0214*0 




00807486 T 


0010*0214*0 


c 


NTRY 00807488 T 


0010*0214*0 


V— 


00807490 T 


0010*0214*0 


. 


00807492 T 


0010*0214*0 


c 


00807494 T 


0010J0214JO 


**— 


00807496 T 


0010*0214*0 


"""" " 


00807498 T 


0010*0214*0 


c 


00807500 T 


0010*0214*0 


00807510 T 


0010*0214*0 ~ 




00807515 T 


0010*0214*0 


c 


START OF SEGMENT ********** 48 




00807520 T 


0048*0000*0 





u 



:0 



C 



L 



O; BEGIN 00807530 T 0048*0000*1 

WRlTEfPCPAGE])> 00807540 j 0048*0001*2 

d^ nF M IBS? P A<EUQ>; 00807550 T 00481000512 ' " 

O ^A(MEMASK); 00807560 T 0048*0008*0 

PA(QTIMES)J 00807570 T 0048*0009*3 

PACSTAT J ON ?; 00807575 T 0048*00n*2 

O TOR I»e0 STEP 1 UNTIL 15 00 PARoW{ STATI ON, I ) I 00807580 T 0048*0012*1 

ENDj 00807890 T 0048*0017*3 

_. ». DUMPCFSSPOOLI 00807899 T 0048*001713 

O ? Hr > PRINTSELECTEDARRAYS; 00807900 T 0048*00l8i0 

„ Mln ., OAn „ rtU » UT 48 * s 21 L° N G* NEXT SEG 10 

B001EAN_BADC0MM F NTJ 00808000 T 00101021410 ■" " 

-0 FORMAT cOMNTPAR(»-"PARlTY ERROR OCCURRED IN COMMENTS BLOCK, .,«)! 00809000 T 0010*0214*0 

start of segment ********** 49 

*:_ „„ „„„ „ .„ 49 is 11 long, next seg 10 

-O PROCEDURE LOAD; 00810000 T 0010*0214*0 

BEGlN 00811000 T 0010*0214*0 

LABEL E0W 00812005 T 0010*0214*0 

START OF SEGMENT ********** 50 C 

LABEL EF'PR'IGPARl 00812010 T 005010000*0 

;: LABEL FLAG, PAR»BADTM»IG N 0REPARJX 00813000 T 0050*0000*0 

O FORMAT BADEOFC w ---INVaLID EOF AFTER BLOCK # w »I2)i 00814000 T 0050*0000*0 Q 

start of segment ********** si 

PRTFILEC'PRT FILE USED IS % Al * A6, "/"» Al , A6, X8 ) # 00814100 T 0051*0000*0 

O PARERR ("---IRRECOVERABLE PARITY IN BLOCK # M ,J2), 00815000 T 0051*0000*0 f 

FLAGfRR("-— FLAG BIT iN WORp ZERO Of BLOCK f »,I2)J 00816000 T 0051*0000*0 

^ addav a n. B ,„,, 5l lS ** L0N6 » NEXT SEG 50 

ARRAY A f 0*532]* 00817000 T 0050*0000*0 

STREAM PROCEDURE MqVERCS.D); 00818000 T 0050*0001*3 

BEGIN 00819000 T 005010001*3 

O ?II«f! Sl'uSL 00820000 T 0050*0003*2 C 

16fD5l=:32 WDJ»), 00821000 T 0050*0003*3 

END MOVER; 00822000 T 0050*0004*0 "" 

STREAM PROCEDURE GETCOMMON(cOMMT,N) I 00822100 T 0050*0004*1 

BEGIN LOCAL X,Y; LABEL X I T»hI T, GETNUM J 00822110 T 0050*0004*1 

OHsNj 0S*=8LlT» + 000000i»»; SUsCOMMT* 00822120 T 0050*0005*2 " 

O 7(?0 n F Sc>C« THEN B E GlN Si* s Si + i* 00822130 T 0050*0006*1 

IF SCc»0« THEN BEGIN SiUSl + i* 008?2t40 T 0050*0008*1 L " 

I p SC«'»M« THEN JUMP OUT 2 To HIT ELSE SH-SI + 1 00822150 T 0050*0009*3 " 

O END ELSE SlIsSI+i END ELSE Sn=Sl+i))j 00822155 T 0050*0011*2 r 

G ° XlT f 00822160 T 0050*0013*2 ^~ 

HITilsUF SC*"=" THEN JUMP OUT TO GETNUM ELSE SH*S! + 1)| Go XI Tj 00822170 T 0050*0013*2 

O GETNUM*SI»sSI+lj 00822175 T 0050*0016*0 

DM-LOC X| 00822180 T 0050*0017*2 

IOC IF SC = W " THEN Si » = S I + 1 ELSE JUMP OUT); 00822190 T 0050*0017*3 

O 5(IF SC GEO "0" THEN IF SC L£Q "9" THEN 00822200 T 0050*0020*0 

BEGIN TALLYt*TALLY+l; DSI-CHR END ELSE JUMP OUT ELSE JUMP OUT); 00822210 T 0050*0021*3 

Y»=TALLy; 00822220 T 0050*0025*2 

SpsLOC X; 00822230 T 0050*0025*2 f 

SI! = w , a« t . 00822240 T 0050*0025*3 

DSJpY OCT, 00822250 T 0050*0025*3 

O XiT* END GETCOMMON; 00822260 T 0050*0026*0 r 

INTEGER i; 00823000 T 0050*0027*2 

ALPHA Ni,N2* 00823100 T 0050*0027*2" 

O comnti-badcomment*=falSf; 00824000 t 0050*0027*2 

IF REB-OaD THEN 00824100 T 0050*0029*2 

FOR 11*0 STEP 1 UNTIL 63 DO UNLOCK CM[ A [ 03 f ROW, * 3 ) J 00824110 T 0050*0029*3 " " " 



c 



u 



c 



u 
o 

_ o 

:io 

:1 o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



if multi then 
Read ReveRsecmdum 
ie fal.se Then igp 

FOR JlsO STEP l UNTl 
BEGIN 

IF MULTI THEN 
READ(MDUMP»53 
IF FLGBIT(A) 
IF MODONtACOJ 
BEGIN 

MOVERtACl 

LOcKCMUt 

END ELSE IF A 

COMMENT ONE B 

END! 

TDMFIDtpMDUMP.MFI 
TDFID?sMDUMP,FID? 
Fll.ETYPEJslF MDUM 
IF NOT MULTI THEN 
IF FlLETYPEs M TAPE 
IF TDFlDtC30Jl8]» 

if Repeating then 

ELSE CLQSEfMDUMP, 
IF (AUXTYPe»pA[0] 
IF FlLETYPEs«TApE 
READCMDUMP#20»CoM 
M0VE(AC513]»C0MMT 
IF FALSE THEN IGNO 
COMNT ?~ TRUE} 
GETCOMMONCCOMMT'Nl 
IF Nl GEQ THEN C 
IF MULTI THEN NOM 
RfADCMruMP[NO])[E 
IF FALSE THEN 
BEGIN 

EOT! CLOSE(MDUMP) 
NOMOSsTRUE* 

end; 

if common or relo 

ELSE 
BEGIN 

if prt32 then rea 
spacec0!sk»1)1 
readarray(namesi 
readarraycnamssi 

Readarraycinamesi 
rfadaRraycinamss 

CL05E(0lSK)J 
NllsDlSK.MFlDl N2 
WRiTE(PRTnAME[*]# 

end; 

if reload the 

BEGIN 

MAXM0DIP7J * 
WHILE NOT M0D0N[M 
MaXC0RIp4096x(MaX 
IF COMMON THEN ELSE 



P»20 t C0MMT[*])tBADTMJlGPAR]i 

ARJBADcOMMENTfsTRUEi 

L 63 Do 

READ REVERSECMDUMP»533»A[*3)[BADTm»PAR] ELSE 
3»A[*])CBADTMiPAR]jX 
THEN Go FLAG ELSE 
i[33t3]]l=N0T BOOLEANCAE03 v Cl t 1 J ) THEN 

]*MCa[o3»R0W»oJ)J 

03 .ROW,*]); 

E03,[3s53=0 THEN Ii«I+7j X 

LOCK Is WRITTEN PER ABSENT MOD? 

d; 

p.type-2 then "tape" else "disk"; 

" ANn TDMFID NEQ THEN 
1 THfN ELSf MULTHsTRUEJ 
IE TDFlD.[30Jl8]si TH EN CLOSECMDUMP) 

*) ELSE 

,C3l5l)»0 THEN 

" THEN 

MT[*])[EOTjIGNOREPAR] else % DISK 

'20); 

repar;badcomment*truej 
>? 

0MM0Nt=B00LEAN(Nl); Nl|**0f 

OjsTRUF else 

0T5PaR3J 



ad then 



DARRAY(30»SEGZERoU]«0) else 

ze»naMeC*3»prtbase); 

ZE»N A MS[*3»0)J 

Ze»INAMEC*]»0)J 

IZE»|NaMS[*3.0)I 

JsdiskIfid; 

PRTFlLE»Nl.[6l6j f Nl.N2,t6l6],N2)| 

N ELSE 



axmodJ do maxmod»*maxmod*i? 
MoD+n-n % 



00824200 
00824210 
00824220 
00825000 
00826000 
00826990 
00827000 
00828000 
00829000 
00830000 
00832000 
00832100 
00833000 
00833010 
00834000 
00834050 
00834060 
00834070 
00834075 
00834080 
00834085 
00834095 
00834097 
00834100 
00834200 
00835000 
00835100 
00836000 
00837000 
00837050 
00837055 
00837095 
00837100 
00837200 
00837300 
00838000 
00838010 
00838100 
00839000 
00840000 
00841000 
00843000 
00844000 
00845000 
00846000 
00847000 
00848000 
00849000 
00849100 
00849200 
00850000 
00850100 
00850200 
00851000 
00852000 
00853000 
00854000 



0050S 
00501 
00501 
0050* 
0050? 
00501 
0050? 
00501 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
00501 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
00501 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 
0050? 



0036 
0036 
0043 
0045 
0047 
0047 

0054 

0061 
0062 
0066 
0066 
0069 
0073 
0076 
0076 
0079 
0082 
0086 
0092 
0092 
0095 
0104 
0108 
Olll 
0114 
0115 
0122 
0125 
0127 
0128 
0130 
0133 
0134 
0141 
0141 
0141 
0143 
0144 
0144 
0145 
0145 
0146 
0148 
0152 
0154 
0156 
0157 
0159 

0161 
0167 
0185 
0185 
0186 
0186 
0187 
0191 
0193 



c 
c 
c 
c 
c 
c 
c 
c 



c 
c 
c 

c 
c 



c 



c 

c 
c 



W 



V 



O i 
O 

o 
o 

;-0 

! o 

O 

o 
o 



o 



o 
o 
o 

o 
o 

o 
o 



BEGIN 

PRTMAX 
INTMAX 
FOR I? 
NSNAME 
FOR I I 
ISNAME 
FIXDEF 
SETUPX 
IF MYS 
IF CON 
IF I.C 
MYSTAC 
ENDi 

EN 
IF FALSE 
BAnTMiWRl 
PARJ WR 
FLaG! WR 

END load; 



JbPRTBASE + NAMESiZf. 
»BiNAMESIZE»U 
sPRTBASE STEP 1 
m+PRTBASE; 

aO STEP 1 UNTIL 

m+PRTBASE? 

INESj 

nameandxnams; 
tackadR lss 

TR0LDESC(7iI) 



'II 

UNTIL PRTMAX DO NSNAMEtl)** 
INTMAX DO ISNAMEC I ] ?= 



Then % lets use it 

Then % check for mscw in cell 
fso and i 1*1 ;ff geo then % assume valid 
kadri*!+30» 3! may need more than 30 



Dj 

THEN BEGIN 

TECSP0*BADE0F»I)I GO EOPROG; 

ITECSPO*PaRERR» 1+1)1 GO EOPROGJ 

ITECSP0»FLAGERR#U1)I GO EOPROG; 



end; 



PROCEDURE CHECKPRTFILEIX 

XSlGNALs USER IF McP/PRT FILE *might* be the WRONG ONE 

BEGIN 

REAL LOc,TYP#I? 

REAL MYTYPEJ 

LABEL BaD»MAYBE! 

DEFINE CHECKFORLABELDESCRIPTORBIF LOC LSS THEN GO BAD ELSE 

IF DESCRlPT0R(L0C»I»TYp) AND TYP=MYTYPE THEN ELSE GO MAYBE#J 

DEFINE checkforprogramdescriptor=checkforlabeldescriptor#i 

FORMAT RADPRTC" — YOUR MCP/PRT FILE IS WRONG,,.")* 

TNcOMPAT("-*-MCP/PRT FILE NOT COMPATIBLE WITH MCPS PRT IN MEMORY,,.")) 

DEFINE ERRMESS(ERRmESSD=BegIN WR jTecSPO* ERRMESSi ) ; 
W R ITE(p[pAGE]fERR M ESSi} end#;x 

MUYpE! S "76"J 

IF (LOCj-NOTHINGTODO) NEQ ThEn 

CHECKFOrLABELDESCRIPToR) 

IF (LOCi-STACKOVERFLOW) NEQ THEN 

CHECKFOrLaRELDESCRIPTORj 

IF CLOCs-RFTURN) NeQ THEN 

chfcKforLareldfscRiptor; 

MYTYPe»»"75 w I 

tf (LOcjbdtRectorybuildeR)f?o thfn loc»*-i; 

checkforprogramdescRiptor? 

if falSf then maybe»begin eRRmessuncompat); prtcodes=i end* 

IF FAlSf THEN BADJBEGIn ERR M ESStBADpRT)) PRTCoDE»s2 END) 

end of checkprtfilej 
procedure dumpmcpsprt) 

BEGIN 

FORMAT HDR(X42*"D C M C P S P R T'V 



X42»" " - ""///» 

2( ,, PRT"»X5 f "c°NTENTS"»X16»"NAME".X28)/)f 





00855000 


T 


00505019450 


L 




00856000 


T 


00501019650 


c 




00857000 


T 


0O5O5O19753 






00858000 


T 


"0050 5 0199 8 2 






00859000 


T 


00501020113 


r 

\ 




00860000 


T 


00501020712 






00861000 


T 


00508020982 






00862000 


T 


00501021410 


r 




00863000 


T 


0050102145 I 






00863100 


T 


0050J0215I2 






00863110 


T 


00501021583 


c 




00863120 


T 


0050I0217J2 






00863130 


T 


0050!0221*2 






00864000 


T 


00505022251 


c 




00864100 


T 


0050J0222«1 






00865000 


T 


00505022251 






00866000 


T 


00505022353 


c 




00867000 


T 


00505023353 






00868000 


T 


0050 5 0245 J 3 






00869000 


T 


00508025753 


c 


50 


IS 262 LONG* 


NEXT SEG 10 






00870000 


T 


0010 5 02145 0" '" " 






00871000 


T 


00105021480 


r 




00872000 


T 


00105021450 






00873000 


T 


0010 5 0214 8 




START 


OF SEGMENT 


********** 52 


c 




00874000 


T 


00521000050 






00875000 


T 


0052*0000 5 






00876000 


T 


0052*0000»Q 


c 




00877000 


T 


0052*000050 






00878000 


T 


00525000050 






00879000 


T 


00528000050 


c 


START 


OF SEGMENT 


********** 53 






00880000 


T 


00535000080 




53 


IS 22 LONG* 


NEXT SEG 52 


r 




00881000 


T 


0052»0000«0 






00882000 


T" 


O052 5 0OO0 5O 






00883000 


T 


0052*0000*0 


c 




00884000 


T 


0052*000051 






00885000 


T 


0052*000280 






00886000 


T 


00528000651 


(~ 




00887000 


T 


00525000880 






00888000 


T 


0052 5 00125 1 






00889000 


T 


00525001450 


c 




00890000 


T 


00525001851 






00891000 


T 


0052«00l9«3 






00892000 


T 


0052*002281 


c 




00893000 


T 


0052*0026*1 






00894000 


T 


0052*0034*1 " " " " " 






00895000 


T 


0052*0042*1 


c 


52 


IS 45 LONG* 


NEXT SEG 10 






00896000 


T 


00105021450 






00897000 


T 


001050214*0 


c 




00898000 


T 


00108021480 




START 


OF SEGMENT 


********** 54 




START 


OF SEGMENT 


********** 55 


c 




00899000 


T 


00558000080 






00900000 


T 


0055 8 0000*0" ~ 





r 



u 
o 
o 

O 

o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 

o 



DASHES(l20(»- ,, ))» 

F(X8, "Memory mods* %8ii)# 

PRTlTE:Mc2(A5»" s »',0»X1,0»X39) jj 



INTEGER LOC* 
LABEL EXIT! 
IE DUMPcESSP 
IP NOT rOMMO 
BEGIN 

checkprtfile 

TE NOT nONTD 
PRjNTMCPOPTl 
IF DONTnUMPR 
BEGIN 

WRlTfCPrD 
FOR l.OCts 
BEGIN 

WRITE 
OC 
OC 
MOVEC 
MOVEC 
WRITE 

tf no 

ENOJ 

WRIT F (P,D 
FOR i.OCla 

BEGIN 

WRITE 

OC 

OC 

MOVEC 

MOVE( 

WRITE 

TF DO 

END* 

EXIT? 

NEXTpAGE) 
ENDJ 
END) 

WRlTE(PrDBU 
[IF MO 
DATIME? 
IF DUMPcESSP 
IF NOT pOMMO 
BEGIN 

McPfNTRt 
GETpRTEN 

ENDJ 

PRTOK 1= PDA 

END OF pUMP 



n; 

OOLONLY 

n then 



55 IS 



THEN DONTdUMPRTjsTRUEI 



; 

UMPRT 
ONSJ 

t Then 



then begin datiMe? 

ELSE 



WRITECPCDBL]) end? 



BL1»HDR)J 

actualprtbase 



step i until prtbase do 



clinec*3*prtitem»octalclo 

TAL(L0HALF(L0C))»0CTAL(NI 
TALC HI HALFCN))»OC TALC LOHA 
XNAMSCXNAME[L0C],CF3»LINE 
XNAMS[XNAMECN],CF]»LINEC1 
CP»15,LINEC*3)I 

ntdumprt then go EXjTI 



C)»0CTALCHIHALFCL0C))» 
sXSNAMECLOC])* 
LFCN)))* 

C4]tXNAME[L0C],FF)i 
23f XNAME[N],FF); 



ASHES)* 
PRTBASE+i 



STEP 1 UNTIL PRTMAX DO 



CLlNE[*J#PRTITEM«OCTALCLO 

TALCLOHALFC LOC))» OCTAL CNt 

TALCHIHALFCN))»OCTALCLOHA 

NAMstNAMEtLOC3.CF3tLlNEt4 

NaMS[NaME[N3.CF3#LINEC123 

(P»l5,LlNE[*3)J 

NTDUMPRT THEN GO E*lTJ 



C)#OCTALCHIHALFCLOC))» 

sNSNAMEtLOC3). 

LFCN)))J 

3fNAMEELOC3»FF); 

»NAME[N3.FF)J 



*F»FOR NicO STEP 1 UNTIL 
DONCN3 THEN N ELSE 103); 

oolonly then else 

n Then 

ESJ 

TRIE'S; NEXTPAGE? 

tadeSccpRT#pRto); 

OF MCPS PRTj 



7 DO 



00901000 T 
00902000 T 
00903000 T 
50 LONGt 



*103< 



00904000 
00904100 
00904500 
00905000 
00906000 
00907000 
00908000 
00909000 
00910000 
0091 1000 
00912000 
00913000 
00914000 
00915000 
00916000 
00917000 
00918000 
00919000 
00920000 
00920100 
00921000 
00922000 
00923000 
009?4000 
00925000 
00926000 
00927000 
00928000 
00929000 
00930000 
00930100 
00931000 
00931100 
00932000 
00933000 
00934000 
00935000 
00936000 
00937000 
00937500 
00938000 
00939000 
00940000 
00941000 
00942000 
00942100 
00943000 



PROCEDURE CHECKMEMORYLINKSI 
BEGIN % 

BOOLEAN ZEROKj REAL VOJ % 

BOOLEAN MSTARTOK; REAL VMSTARTJ % 



54 IS 141 LONG* 
00944000 T 
00945000 T 
00946000 T 

start op segment ** 

00947000 T 



0055*00001 
00555000010 
0055*000080 

NEXT SEG 54 
0054*0000*0 
0054*0000*0 
0054*0000*0 
0054*0003*2 
0054*0003*3 "■• 
0054*0004*0 
0054*0004* 1 
0054*0010*1" 
0054*0011*2 
0054*0012*0 
0054*0012*1 
0054*0015*3 
0054*0017*2 
0054*0017*2 
0054*0027*2 
0054*003450 
0054*0043*2 
0054*0047*3 
0054*0052*0 
005450056* 1 
0054*0058*0 
0054*0060*0 
0054*0063*2 
0054*0067*3 
0054*0067*3 
0054*0078*0 
0054*0085*2 
0054*0094*0 
0054*0098*1 
0054*0103*2 
0054*0107*3 
0054*0x09*2 
0054*0109*3 
0054*0110*0 
0054*0114*0 ' 
0054*0114*0 
0054*0114*0 
0054*0119*2 
0054*0128*0 
0054*0128*1 
0054*0130*0 
0054*0131*2 
0054*0131*3 
0054*0132*0 
0054*0136*1 
0054*0136* 1 
0054*0138*0 

NEXT SEG 10 
0010*0214*0 
0010*0214*0 
0010*0214*0 

******** 56 

0056*0000*0 



C 

c 

c 

c 
c 

r 

c 
c 



r 



c 
c 
c 
c 






r 
C 

c 
c 

c 



Ol 



o 

:jo 
■ :| o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



BOOLEAN NOWRAPAROUNDJ 
REAL L!NK»VLINK»PREVLiNk* 
INTEGER AVAILN»AVAIUT,AVAILM) 
BOOLEAN PROCEDURE Li NKOK ( WORD) ) % 

VALUE word; % 

REAL WORDI % 
LlNKOKl=WORD,C3»63<TYpMAX AND % 

W0RD»t9l6]<MIXMAX AND 

W0RD.C15J33=0| % 
FORMAT RANGFCX8, "PR iMARY LINKS FROM 



"»A5»° TO %A5," ARE OK" ) 



FC0Rp(A5f" s %2(0>X1)*X6#"C0RE"»X8, "FACTOR 9 "iF4»2» 
% MAX CORE s M ,A5#"(»M5# w ) t S", USING "» A5» " ("» I 5, " ) " ) » 



BAD(X8,A6»" LINK AT ",A5#" 



IS NOT 
if 



OK")» 
BADPRIMARYCX8»"PRIMARY LINK AT "»A5»" IS NOT OK")» 

AVLBAD(X8»"AVAILABLE STORAGE TOTALS DO NOT CROSS 
AVL(X8» m AVAILABLE LINKS ARE OK* TOTALING"* 
I4»»CDECIMaL) AREAS OF % A5» ,f ( "» I 5i 
•») WORDS UP TO ", A5»"<"»I5»") WORDS EACH"); 



CHECK") 



00947100 
00948000 
00949000 
00950000 
00951000 
00952000 
00953000 
00954000 
00955000 
00956000 
START OF SEGMENT 
00956100 
00956110 
00957000 
00958000 
00959000 
00960000 
00961000 
00962000 



INTEGER N,T*M; 
DlSPLAYfO.FALS 
IF MSTART>0 TH 
IF MEND>0 THEN 
DISPLAY(AVAIL» 
IF OPERANDcCOR 
BEGIN 

WRITECLINE 

OCTAL 

OCTAL 

OCTAL 

WRITECPCOB 

END ELSE 

DlSPLAY(CORE»F 

ZER0K1=0PERAND 

vo,rii?)«i 

V0.r03« 153=0 

VOtFFsCMAX 

VO.CF GTR 

OPERANDCVO 

IF MSTART=0 TH 

MSTART0Kl=0PER 

VMSTART.tl 

VMSTART GT 

IF LNKSOKisMST 

MiNLNK'sLINKJb 

else if mstart 
if zerok then 

AVALNKOKfsTRUE 

njbTiso; 
while lnks0k a 
if lnksokucop 

Li 
VL 
CIF 
TH 
EL 



% 
E)> 

en displaycmstart.false); 
displaycmend, false); 

FALSE); 

E»T) AND T» C 1 1 3 3=0 THEN 

t*]>FCORE,OCTAL(CQRE)»QCTAL<HIHALFCCORE)), 

CLOH ALFt CORE ))»T,C4j 143/ 100, 

((NtsT,CFx64) i CF)»N, 

((Nl^T.FFx64),CF)»N); 

L]*15»LiN F C*3); 



ALSE); 
(O.VO) 



AND 
AND 



AnD 
LNK|=MAXCoR-2) AND 
1023 AND VOfCF LSS 4096 AND 
.CF»T) AND LINKOKCT) AND T»FF?=0; 
EN MSTART0K|=FALSE ELSE 
AND(MSTaRT'VMsTaRT) AND 
1353=0 AND % 
R 1023 ANn VMSTART LSS 4096; 
ARTOK OR ZEROK THEN 
IF MSTARTOK AND ZEROK THEN MAXC VO f CF # VMSTART ) 

ok then vmstart else 

vo,cf el$e 0; 

; 



ND MAXLNK>PREVLINK DO % 
ERAND(LlNK»VLlNK) and 
NKOK(VLiNK) AND 3! 
INK,ff=PRfVLINK AND % 

LINKpMaXLNK 
EN VLlNK,CF*0 % 

se vlink,cf>link))Then 



00963000 
00964000 
00965000 
00966000 
00967000 
00967100 
00967110 
00967120 
00967130 
00967140 
00967150 
00967160 
00967170 
00967180 
00968000 
00969000 
00970000 
00971000 
00972000 
00972400 
00972500 
00973000 
00974000 
00975000 
00976000 
00976100 
00976200 
00976300 
00978000 
00978100 
00979000 
00980000 
00981000 
00982000 
00983000 
00984000 
00985000 



0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 

0057 
0057 
0057 
0057 
0057 
0057 
" 0057 
0057 
NEXT 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
"" 0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 



50000 
80000 

roooo 

50000 
10000 

toooo 

50000 
t 0001 

?0002 

50007 

*** 

S0007 

50007 

50007 

5 0007 

10007 

50007 

10007 

50007 

SEG 

50007 

50007 

10009 

50012 

J0015 

50016 

50019 

50020 

S0030 

80036 

80042 

50051 

50055 

50055 

50057 

50056 

10060 

80061 

80064 

50067 

80071 

50074 

50077 

50078 

50081 

50082 

10085 

80089 

50092 
50093 
50094 
50096 
50097 
50098 
50100 
50100 
» 1 2 










2 

r 

2 

57 

2 

2 

2 

2 

2 

2 

2 

2 

56 

2" 
2 
2 


2 
1 
3" 



1 

r~ 

1 

2 

3 

3 

3 

1 " 


3 

0" 

2 
3 

" 
2 
1 

2 ■ 
1 

2 
2 
1 
2 
1 
1 
3 

i 


1 




C 
C 

c 
c 



L 



r 



c 



v^ 



r 



c 

C 
C 

c 



L 



[^) 



v_. 



L. 



o 

o 

- o 

Q 

- ; ' : o 

P 

jo 
■' ! o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



BEGIN X 

PREVLIN 
LINKJsV 
IF AVAL 
IF BOOL 
IF AVAL 
IF AVAL 



k»=link; x 

LINK.CFJ % 
NKOK THEN X 

EANCVLiNK.nui) then % 
nkok*=maXlnk>prevlink then x 
nkok ; s( operand cprevl i nk+1»vl ink) 

VLINK.till7J»0) THEN % 



AND % 



BEGIN % 

AVA 

AVA 

AVA 
END; X 
END! X 

if not zerok th 
if lnksok then 

OCTaLCMAXLNK)) 

if somokfi-pRevlink>minlnk then 

BEGIN X 
WRITECP 



ilnj=availn+u % 

lLTI=AVAlLT+VLlNK t FFi X 
lLM«=MAX(AVAiLM»VLlNK,FF)l 



EN WRITECP»BADPRIMARY»0)J 

WRITECP»RANGF»IF ZEROK THEN ELSE OCTALCM I NLNK ) , 
ELSE 



WRITECP 

END; X 

MINBAD* 

PREVLIN 

LINK*=M 

WHILE 

LIN 

VLI 

LIN 

BEGIN * 

PRE 

LIN 

END; X 

IF PREV 

WRITECP 

WRITECP 

SOMOKB! 

end; % 
nowraparoun 

IF AVA^NKOK 
PREVLIN 
OPERAND 
VLlNK.r 
VLINK.F 
BEGIN 3! 

WHILE A 

N 

C 

C 

CIF LNK 

IF NOWR 



.Range, if zerok then o else octaLcminlnk), 

octalcprevlink)); 

,badprjmary#octalclink));x 

=link* 

KIsOl X 

axlnk; x 

PERANDCLINK'VLINK) and z 

KOKCVLINK) AND 

NK.CF-PREVLINK AND % 

K>VLINK,FF DO % 

VLINKI*LINKI X 
Kl=VLINK,FF* % 

LINKbO THEN MAXBADlsMAXCOR+1 ELSE X 

» RANGEt OCTALCMAXLNK)' OCT ALCMAXBAD I aPREVLINK)); 

,BADPRIMARY» OC TALC LINK) );X 

sPREVLlNK>0* 



DisTRUE; 

j=copeRandcavail»prevlink) 

KbMAXLNK+1 and % 

CPREVMNK,vLtNK) and X 

l»l7]50 AND X 

F=32767) then % 



AND 



IF 



AVAL 
LIN 
BOO 



VALNKOK AND % 
OWRApARQUND AND 
IF LNKSOK THEN AVAILN 
IF LNKSoK THEN AVAILT 
SOK THEN AVAILM GEO M 

aparoundj-cMaxcor GTR 
and LINK GTR 



GTR N ELSE TRUE) 
GTR T ELSE TRUE) 

ELSE TRUE) DO 
LINK*~VLINK,CF 

0) THEN 



AND 
AND 



NKOK !SC0PERANDCLINK-1«VL INK) 
KOKCVLINK) AND X 
LEANcVLlNK.tltl]) AND % 



AND X 



00986000 T 


0056*0i05*2 


c 


00987000 T 


0056«0i05l3 




00988000 T 


O056«0l06ll 




00989000 T 


005610107*3 


c 


00990000 T 


0056*0108*0 




00991000 T 


0056*0109*2 "" 




00992000 T 


0056*0111 :2 


c 


00993000 T 


0056*0113*2 




00994000 T 


005680115*2 




00995000 T 


005610115*3 


c 


00996000 T 


0056*0116*1 




00997000 T 


0056*0118*1 




00998000 T 


0056*0122*0 


c 


00999000 T 


0056*0122*0 




00999100 T 


0056*0124*0 




01000000 T 


0056*0133*2 


c 


01001000 T 


0056*0141*3 


N— - 


01002000 T 


0056*0147*2 




01003000 T 


0056*0147*3 


c 


01004000 T 


0056*0149*2 


v_> 


01005000 T 


005610149*3 '" ~ "" 




01006000 T 


0056*0157*3 


c 


0|007000 T 


0056*0163*2 




01008000 T 


0056*0173*2 




01009000 T 


0056*0173*2 


c 


01010000 T 


0056*0174*0 




01011000 T 


0056*0174*1 




01012000 T 


0056*0175*3 


c 


01013000 T 


0056*0177*2 




01014000 T 


0056*0178*0 




01015000 T 


0056*0179:3 


c 


01016000 T 


0056*0181*3 




01017000 T 


0056*0181*3 " 




01018000 T 


0056*0182*0 


c 


01019000 T 


0056*0183*3 




01020000 T 


0056*0184*0 




01021000 T 


0056*0186*1 


c 


01022000 T 


005610199*2 


S — ' 


01023000 T 


0056*0209*2 




01024000 T 


0056*0210*1 


1"^ 


01025000 T 


0056*0210*1 




01026000 T 


0056*0211*2 




01027000 T 


0056*0212* 1 


c 


01028000 T 


0056*0214*0 


\^s 


01029000 T 


0056*0215*2 




O1O3OOOO T 


0056*0216* 1 


c 


O1O31OOO T 


0056*0218*1 




01032000 T 


0056*0219*2 




01032100 T 


0056*0220*0 


c 


01033000 T 


0056*0220*1 




01034000 T 


0056*0223*2 




01035000 T. 


0056*0225*3 


c 


01036000 T 


0056*0228*1 




01036100 T 


0056*0229*2 




01037000 T 


0056*0232*0 


c 


01038000 T 


0056*0234*0 




01039000 T 


0056*0235*2 





u 



^ 



o 
o 
o 
o 

to 

to 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



TA 

END 
WRI 
END> % 



OPERAND(UlNK+t »VUINK) AND % 

VLINKsPREVUINK AND % 

OPERANDCLINKfVLlNK) AND % 

VLINK, C 1 1 17 ]=0 AND % 

VLlNK.CFJ'LlNK) THEN % 
BEGIN % * 

NlsN+i J 

TUT + VUlNK.FFJ % 

MlaMAX(M»VL.lNK,FF)J % 

PRFVLlNKJsLiNK? % 
ENDf % 

IF NOT AVALNKOK ThEN WRj TE( P»BAD» »AVALBL»,0CTAL( LI N« ) ) 
IF LNKSOK AND 
NQT(AVALNKOK!s 

LNKSOK AND 
AVAILN-N AND % 
AVAJLT=T AND % 
AVAILM-M AND % 

VLlNK f CF s M A XLNK+l) THEN WR I TE (P» A VLBAD ) ELSE % 
WRITECP#AVL»N, OCTANT )*TiOcTALCM),M) J 
BLESLOC?=IF LNKSOK AND OPERANDc MAXLNK, T) 

then t.ff else -i; 

ELSE NRiTE(P»BAD t »AVALBL"#OCTALcMAXLNK+l))J 
TECPtDBL])? 2! 



ARRAY MIXSTKC0J43J; 

PROCEDURE GETSTACKSFROMTHEBED) 

BEGjN 

INTEGER H 



INTEGER Mix; 
INTrGFR Ml BOOLEAN B* 
FORMAT DUPBED(X8»»DUPLlCATE 



BED ENTRY FOR MlXs«»i2» 



.CHECK BED AT ADDRESS s »»A5# 
(THIS ENTRY IGNORED)")? 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
ELSE 01 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
56 IS 3 
01 
01 
01 
01 

START Of S 
01 
01 
01 

START OF S 
01 
01 



REAL VfTYP; 

IF OPERANDCJOBNUM»VJOBNUM) THEN 
IF VJ0BNUM,tU8]*0 AND 
VJ0BNUM,[47ilJ-0 A ND 

PDATaDESC<BED»VbED) and 
VJOBNUM<VBED.tBHO] THE N 

BEGIN 

vbed»svbed.cf; 

for i!=0 step 2 until vjobnum do 

IF DEScRlPToRCVBED+ItVtTYP) THEN 
IF Blsf (MlXlsV l t6l2)&TYp[43U5»33) GTR 

AND (MisMlXSTKCMIXl) NEQ 0) THEN 
WRlTECPiDUPBED»MlX#OCTAL(VBED+I)) 
ELSE 
BEGIN 

BEDSTK«9MaXSTKj=MaXSTK+i; 

mixstk[Mix]i=bedSTk; 

STAXrBEDSTKJIa 
V,FF& 



59 IS 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



040000 

041000 

042000 

043000 

044000 

045000 

046000 

047000 

048000 

049000 

050000 

051000 

051100 

052000 

052100 

053000 

054000 

055000 

056000 

057000 

058000 

059000 

060000 

061000 

062000 

21 LONG. 

063000 T 

064000 T 

065000 T 

066000 T 

egment ** 

067000 T 

068000 T 

069000 T 

EGMENT ** 

070000 T 

071000 T 
20 LONG. 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



072000 
073000 
074000 
075000 
076000 
077000 
078000 
079000 
080000 
081000 
082000 
083000 
084000 
085000 
086000 
087000 
088000 
089000 
090000 



0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
NEXT 
0010 
0010 
0010 

0010 

***** 

0058 
0058 
0058 

***** 
0059 
0059 

NEXT 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 



50236 

50237 

50238 

10240 

? 0241 

50243 

10244 

50245 

50247 

50250 

50251 

50253 

50266 

50267 

50267 

.'0267 

50268 

50269 

50270 

50276 

10293 

50294 

50297 

5 0311 

50315 

SEG 

50214 

50216 

50216 

50216 

*** 

50000 
50000 
50000 
*** 
50000 
50000 
SEG 
50000 
50000 
50001 
10003 
50004 
50006 
J0007 
50008 
50009 
5 001 
5001 
5001 
5001 
50024 
50028 
8 



5002 



50030 
50031 
5 00 32 



50 
53 
» 1 
50 
53 
53 
50 
52 
5 2 
»1 
52 
52 
(0 
52 
52 
52 
50 
5 2 
50 
51 
52 
50 
53 
52 
52 

10 
50 
51 
51 
51 

56 
50 
50 
50 

59 
50" 
50 

56 
5 
50 
J2 
52 
51 
50 
53 
50 
52 
50 
»3 
51 
52 
»1 
50 

51 
51 
53 
10" 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r- 

K_ 

'^_ 

c 



r 



o 
o 
o 

o 

-u 

lo 

o 

n 

: ' j o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



I[8S38ltO]& 

CREAU(MlX>0))C7l47li3l 

END? 

END) 
IF R THEN WrITE(P[DBL3){ 

end getstacksfromthebed; 
procedure dumpmcpsavecodecfromttoo); value from* too; real from, 

FORWARD* 

procedure dumpmemoryandnotestacksc FROM* TOO); 

VALUE FROM, TOO) 
INTEGER FROMtTOO* 
BEGfN 

BOOLEAN BEDDED) 

DEFINE T»LINKTYPE#J 
REAL LI 

FORMAT ITEM{X2»A3*" =». 2( X4, A5) ) ) 



REAL 
REAL X 
REAL I 
BOOLEA 
DEFINE 
REAL D 
BOOLEA 
DEFINE 
INTEGE 
REAL M 
DEFINE 



R»AdR»Q*LD BOOLEAN iNTR»QT) 
) 

STACK 
N MCP 
mXOb 
CQPTS 
N DCS 

DC*D 
R N*S 
X) 

OCTA 



V1BOOLEAN jSTACKOK#lRSTACK> 

SAVE»MXnoTo) 

NOT MXN0T0#J 

TACKiDCqpTSTaCKV) 

TACKuDCHITj 

CQPTSTACK#»DcV-DCQPTSTACKV)S!J 

TK? 



LWORD p 8 OCTADE? Dl 5 = DI + 11 8 OCTADE) 
DI Is DI + 2*1 
STREAM PROCEDURE BUI LDHEADERC LI NE, FROM * WHI CH» TYPE > NAME. M 

SIZE«M0M»LINK1*LINK2#LINK3) 
R0M'WHlCH»TYpE»MlX»SlZE»M0M»LlNKl»LlNK2»LlNK3 



VALUE F 
BEGIN 

LOCAL S 

LABEL S 

label m 

DI 1- L 
17 (DS 
DI 5* L 

si ib l 

DS »e L 
CI 5 = C 

GO To 

GO To 

GO To 

GO To 

GO TO 

SAVEAREA: 

DS I- 4 

GO TO M 

OLAY! 

v DS := 4 

MOVTYPt 

DS ?s* 1 



WJ % - 1 IF BUILDING AVAIL AREA HEADER, 
AVEAREA* OLAY* AVAIL* MCPCODE* INTCODE) 

0VNAM# movt¥p» movsiz; 

INEJ 



5* 8 LIT 



)) 



OC FROM; St 5 = Si + 5; SKIP 3 SB* 5 OcTADE) 
,T w »| 

1 + WHICH) 
OLAY) % CASF 
SAVEAREA) % CASE l 
AVAIL) % CASE 2 
MCPCODE) % CASE 3 
INTCODE) 2 CASE 4 

LIT "SAVE") 
OVTYP) 

LIT "OLAY") 

2 LIT " AREA, TYPE-") 





01091000 


T 


0058 




01092000 


T 


0058 




01093000 


T 


0058 




01094000 


T 


0058 




01095000 


T 


0058 




01096000 


T 


0058 


58 


IS 47 LONG. 


NEXT 


TOO) 


01096500 


C 


0010 


2106* 


01096600 


C 


0010 




01097000 


T 


0010 




01098000 


T 


0010 




01099000 


T 


0010 




OHOOOOO 


T 


0010 




onoiooo 


T 


0010 


START 


OF SEGMENT 


******* 




01101100 


T 


0060 




01102000 


T 


0060 




01103000 


T 


0060 


START 


OF SEGMENT 


******* 


61 


IS 10 LONG* 


NEXT 




' 01J04000 


T 


0060 


2103- 


01105000 


P 


0060 




0H06000 


T 


0060 




01107100 


T 


0060 




01107200 


T 


0060 




01108000 


T 


0060 




01109000 


T 


0060 




01110000 


T 


0060 




01112000 


T 


0060 




01113000 


T 


0060 


2103* 


01115100 


C 


0060 


X103- 


011J5200 


C 


0060 


IX, 2103- 


011 15300 


C 


0060 


) 2103- 


01H5400 


C 


0060 


) 2103- 


01115500 


C 


0060 


2103- 


01115600 


C 


0060 


2103- 


01115700 


C 


0060 


2103- 


01115800 


C 


0060 


2103" 


01115850 


c 


0060 


2103- 


01115900 


C 


0060 


2103- 


01116000 


p 


0060 


2103- 


01116100 


c 


0060 


S103- 


01116200 


c 


0060 


2103* 


01116300 


c 


0060 


2103- 


01H6400 


c 


0060 


2103- 


01116500 


c 


0060 


2103* 


01H6600 


c 


0060 


2103* 


01H6700 


c 


0060 


2103" 


01116800 


c 


0060 


2103- 


01H6900 


c 


0060 


2103* 


01117000 


p 


0060 


35103- 


01117100 


c 


0060 


2103- 


01117200 


c 


0060 


2103" 


01117300 


c 


0060 


2103- 


01H7400 


c 


0060 


2103- 


01117500 


c 


0060 


2103" 


01117600 


c 


0060 



5 0033) 2 C 

5 003450 

! 00 36'0 " 

5003850 r 

5003850 

5 00435 2 ~~ ' 

SEG 10 r 
5 02165 1 

5 021651 

5021651 £ 

5021651 

102165 1 

5021611 C 

« 0216* 1 __ 

* * * 60 

jooooso r 

5000050 

5000050 

*** 61 Q 

SEG 60 

5 000050 

5000050 r 

5 0000 5 

5 0000 5 

5000050 r 

5000050 
50000)0 

sooooso r 

5000050 

1000050 — ' 

5000050 r 

5 0000 5 

5 0000 5 

5000050 £ 

5000050 

5 0000 5 

50000)0 Q 

5000050 

5 0000 5 

5000050 C 

5000050 

5 00025 

5000250 Q 

5000553 

5 0006 5 

5000651 r 

5 0007 5 2 

5 000752 " " 

5000753 r 

5000753 

5 00O8SQ 

5000850 r 

5 0008 5 1 

5 0009 J 2 

5000952 r 

5000953 

5001050 

c 



O I 

o 
o 

o 

to 

r) 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



SI is L 
DS is 2 
DS I* L 

si i = N 

16 CIF 

DS I- 7 

SI Is L 

DS Is 2 

GO TO M 
AVAIL* 

DS Is i 

TALLY S 

SW is T 

GO TO M 
MCPCODEJ 
DS »s 8 
GO TO M 
INTCODEJ 

DS ts 9 
MQVNAMI 
DS := 3 
SI t= N 
TYPE C 

MOVSIZI 
DS J= 7 
SI |s L 
SI »s s 
SKIP 3 
5 OcTAD 
DS Is L 
Si 1= L 
DS Is 5 
DS 1= i 

MOM (DS 
SI 
SI 
SK 
5 
DS l« 9 
SI is L 
OCTALWO 
SI 1= L 
OCTALWO 
SW (SI 
OCT 
END OF BU 
NOTPRINTCAL 
IF DATACOM 
BEGIN 

DCSTA 



OC TYPE! 

dec; 
it "( M ; 

AME? 

sc » arrow then 
Lit "), MtXs"} 
oc Mix; 

DECI 
OVSiZJ 



4 LIT "AVAILABLE AREA"? 

= II 

ALLY! 

OVSIZJ 

LIT "MCP CODE"; 

ovnam; 



jump out else ds i= chr>? 



LIT "INTRINSIC"! 



lit " - "; 

amei 

8 ( IF SC a 



THEN JUMP 



OUT 2 TO MOVSIZ 
ELSE DS Is CHR ) 



)l 



Li 
OC 
I + 
SBI 

e; 

IT 
OC 

DE 
IT 

1 = 

Is 
1 = 

IP 

OCT 
LI 

OC 

RDI 

OC 

RDI 

is 

ALW 
ILD 
Lis 
THE 



"• sizes"; 



T 

SIZE j 
51 



size 
c; 

»)"! 

9 L 
LOC 
SI 
3 SB 

ADE) 
T " 
LINK 



; 



IT "» MOM AT "I 

LINK*; 

+ 5; 
; 

; 

LINKS* "I 

i; 



LINK2I 

LOC LINK3J 
ORD)? 

header; 

TRUE; 
N 



CKjsoC GTR 129 AND OPERANDC DC * DC V) 
AND DCV NEQ AND DCV, C 1 * 323=0 
ANn (DCV» S DCV,CF) GTR 1023 AND 
OPfRAND(DCV,R) AND R=0 AND 
0PeRAND(DCV-1,Q) AND Q.[9I6]sO AND 
(Q,[3*6]=0 OR Q,[3l6Jsi2) AND O.tZIUoll 
END OF LOCATING DCQpTsTACK AFTER MANY CHECKS; 



8103- 


01 


117700 C 


8103- 


01 


117800 C 


8103- 


01 


117900 C 


8103- 


01 


118000 P 


8103- 


01 


118100 C 


8103- 


01 


118200 C 


8103- 


01 


118300 c 


8103- 


01 


118400 C 


8103- 


01 


118500 C 


8l03- 


01 


118600 C 


8103- 


01 


118700 C 


8103- 


01 


1 18800 C 


8103- 


01 


118900 C 


8103- 


01 


119000 P 


8103- 


01 


119100 C 


8103- 


01 


119200 C 


X103- 


01 


119300 C 


8103" 


01 


119400 C 


8103- 


01 


119500 c 


8103- 


01 


119600 C 


8103- 


01 


119700 c 


8103- 


01 


119800 C 


8103- 


01 


119900 C 


8103- 


01 


119950 "C 


8103- 


01 


120000 P 


8103- 


01 


120100 C 


8103- 


01 


120200 C 


8103- 


01 


120300 C 


8103- 


01 


120400 c 


8103- 


01 


120500 c 


8103- 


01 


120600 C 


8103- 


01 


120700 C 


8103- 


01 


120800 c 


8103- 


01 


120850 C 


8103- 


01 


120900 C 


8103- 


01 


120950 C 


8103- 


01 


121000 P 


8103- 


01 


121050 C 


8103- 


01 


121100 C 


8103- 


01 


121150 C 


8103- 


01 


121300 C 


8103- 


01 


121400 C 


8103- 


01 


121500 C 


8103- 


01 


121600 C 


8103- 


01 


121700 "C 


8103- 


01 


121800 C 


8103- 


01 


121900 C 




01 


122100 "T 




01 


123000 T 




01 


124000 T 




01 


125000 T 




01 


126000 T 




01 


127000 T 




01 


128000 T 




01 


129000 T 




01 


130000 T 




01 


1 31000 T 



0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 
0060 



0011 
0012 
0012 
0012 
0013 
0015 
0016 
0016 
0016 
00l7 
0017 
0019 
0019 
0019 
0019 
0020 
0021 
0021 
0022 
0023 
0024 
0024 
00 2 5 
0027 
0028 
0029 
0030 
0030 
0030 
00 31 
0033 
0034 
0034 
0034 
0035 
0037 
0038 
0038 
0038 
0041 
0043 
0043 
0049 
0049 
0055 
0056 
0063 
00 6 3 
0064 
0065 
0066 
0067 
0069 
0072 
0074 
0078 
0083 



c 
c 
c 
c 
c 
c 

c 

r 

c 

c 
c 
c 
c 
c 
c 
c 
c 



c 



<-> 



^ 



r\ 



O 

o 

- o 

o 

o 
o 

'O 

o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



ISTACKOKIspDATADESCCISTaCK»ISTACK 
ISTACKV, [8J103 GTr o 
(ISTACKVjsISTaCKV.CF) g 
!NTR|pP[)ATaDESC( INTRNSC*ADR) and 

ADR I? ADRiCF; 
WHILE FROM<TOO DO 
BEGIN 

IRSTACKmFAUSEl 
nCHlT»sFALSE* 

NlaCL?sM[FROM,ROW,FROM,cOL3), 
IF T«BU,r3l63 GTR TyPMAX THEN 
MXN0TO:sCMX?sL,t9}6]) NEQ 0* 
IF BCL.llllJ) THEN 3! AVAILA6L 
IF NOT NODUMP THEN 
BEGIN 

QT is 0PERAND(FR0M+2»Q) 
BUILDHEA0ERCL!NEC*]#FR0 
AND NOT B(X 
0, Lt X, Q) 
WRlTE(PtDBL]»l7»LlNE[*3 
AVALNK t* TRUEl 
IF DUMPAVAIL OR NEEDCHE 

PRINT(FR0M+3»N)J 
AVALNK Is FALSE* 
END 
ELSE % NO DUMP 
ELSE % IN USE AREA. 
BEGIN 
IT:boPeRaNdCfROM+1iQ)J 

McPSAVe««QT AND N£8 AND L, [21133s 
AND O.CF GEO 129 AND Q.CF LEG PR 

dchtT>scdcv-i)=from; 

irstack!=, (c0ntr0ldesc(fr0m+2*r) and 

R.FFsISTACKV+l) or 

fC0NTR0LDESC(FR0M+3»R) AND 
R,FFsISTACKV+l)J 

IF NOT NODUMP THEN BEGIN 

IF MXN0T0 THEN % CHECK FOR STACK OR 
IF T p 2 THEN % MIGHT BE STaCK-PR 
IF 0PERAND(FR0M+2,X) AND X« M BBB 
((C0NTR0LDESCCFR0M+3iX) AND 
C0PERANDCFR0M+3.X) AND X*0 
AND X.FF. s 0)) THEN % IT I 
T «* 34 
ELSE 

else 
if t = 1 then * might be segmen 

if bu,c2i11> and operandcfro 
and 0perand(fr0m+3»x) and 
x,[3?53 « and x,cf * t 

T »s 33 

ELSE 
ELSE 
ELSE % MIX = 

IF(FROMpTABLESLOC AND T=0)ORCPRTO 

T $» 35 
EL5E 



V) AND ■ 

AND 

tr o; 

ADR,FFs0J 



25103" 



CFJ 
L.[3l6]|sTlsTYPMAX*l*X BAD TYP 



E AREA 



i % GET Lli 
M»2*0»X»0» 
.[11173) Tl 
I 



% 

% 

% 

NK 3 % 

IF 0PERANDCFR0M+1 

HEN X.FF ELSf O.g 

% 
% 
% 
CKAVAILNKS THEN % 

% 
% 
% 
% 

% 



4096 aND Q.FF NeQ 
TMAXJ 



103- 

103- 

103- 

103- 

»X) 

103- 

103- 

103- 

103- 

103- 

103- 

103- 

103- 

103- 

103- 



SEGMENT D 
T, 

BBBBB" AND 
X.FF e 0) 
AND CONTRO 
S STACK-PR 



LDESCCFROM+ft,X) 
T, 



X103- 
ICT, 35103- 

X103- 

X103< 

OR X103- 

Sl03« 
*103- 
%\03> 

%103« 
2103- 
T DICT, X103- 

M + 2*X) AND X,tl?37] s 5U03' 
X, C 1 | 23 LEQ 2 AND X103' 

HEN 3! IT IS SEGMENT DIcT. Xi03» 

*103« 
S103" 
S103' 
X103- 
,CF>FROM AND PRTQ ,CF<N ) THEN 

2103" 
2103" 



01 


132000 T 


0060>0063»2 


c 


01 


133000 T 


00605008450 




01 


134000 T 


0060 5 0085 5 3 




01 


135000 T 


00605008850 


L 


01 


136000 P 


00605009153 




01 


143000 T 


0060 5 009251 " 7 




01 


144000 T 


00605009450 




01 


145000 T 


00605009450 




01 


146000 T 


OO605009552 




01 


149000 T 


00601009553 


c 


Oli 


149100 T 


00605009953 




01 


149200 T 


0060501045 1 




01 


151000 P 


006050106? 1 


c 


01 


151100 C 


00605010753 




01 


151200 C 


O06O50109S2 " 




01! 


L51300 c 


00605010953 


c 


01' 


151400 C 


00605011153 


01 


151500 c 


0060 5 0U5S2 - 




01 


151600 C 


OO6O50U851 


c 


01' 


151700 C 


00605012050 


01 


151800 C 


0060 5 0124 5 "" 




01! 


151900 c 


00605012552 


c 


on 


152000 P 


00605012650 




01' 


152100 C 


0060 5 0130 5 1 




01! 


152200 C 


00605013152 


c 


01! 


152300 C 


00605013152 




015 


152400 C 


0060 5 01315 2 




01! 


62000 T 


00605013153 


c 


01! 


163000 T 


00605013250 




Oil 


164000 T 


0060 5 0134 5 




011 


.64100 T 


0060*013753 




on 


64200 T 


0060S014250 




011 


64300 T 


00605014353 




on 


64400 T 


00605014552 


1 


011 


64500 T 


O06O5014752 


v — 


on 


64600 T 


0060 5 0148 5 1 




011 


64900 P 


0060I0151J3 


c 


on 


66000 P 


00605015352 


^». 


011 


66100 C 


00605015353 " 




Oil 


66200 C 


00605015451 


c 


on 


66300 c 


00601015753 


on 


66400 C 


00605016051 




on 


66500 C 


00605016451 


c 


on 


66600 C 


00605016752 


Oil 


66700 C 


0060 5 0167 5 3 




011 


66800 C 


00605016850 


c 


01 J 


66900 C 


00605017152 




on 


67000 P 


0060 5 0172 5 




011 


67100 C 


00605017651 


c 


on 


67200 C 


00605018051 




011 


.67300 C 


00605018353 




on 


67400 C 


00605018450 


c 


Oil 


67500 C 


00605018451 




Oil 


67600 C 


0060 5 0185 5 2 




on 


67700 C 


00605018553 


c 


Oil 


67800 C 


00605019152 




on 


67900 c 


00605019153 





L 



o 



o 

'■o 
]o 
]o 

; i 
o 

o 
o 
o 
o 
o 



o 



o 
o 
o 
o 

o 



IF FROM a ADR-2 THEN X INTRINSIC ARRAY, 

T is 22 
ELSE 

IF CDCSTACK ANq DCHjT) OR L.t2»l3 b 1 AND CT»0 OR Tp 
AND MXO AND ISTAcKOK AND IRSTACK THEN 
T ? = 36; 
TF MXO AND C(T*1 ANq Qt) OR MCPSAVE) THEN 

BUlLDHEADERCLlNEt*], FROM. 3, NaM£[ Q. CF ] , FF * 

NAMSrNAMEtQ.CFJ.CDf 0* N-FROM-2* 0, L* Q, 
ELSE 

IF QT AND T » 7 AND InTR AND 0PERANDC ADR+( LL* aQ, [ 8 1 10 ] 
AnD R ? = R,CF > 1023 AND LL LEQ intmax THEN 
BUItDHEADERCLlNEt*]* FROM* 4* INAME CLb J , FF* 

INAMS[InAMECLU»CF]» 0» N-FROM-2* 0, u» 
FUSE 

BUlLDHEADERCLlNE[*]*FR0M*L,[2*l]fT»ATP[T+T3»MX# 
N-FROM-2* IF PDATADESC(Q«CF»X) AND 
X.CF = FROM+2 THEN 1 ELSE 0* L, Q» 0); 
WRITE(P[DBL]»17»LINEC*3)» 
ENDJ 

STKlP-i; BEDDEDlsp-ALSE; 

WHILE BEDSTK GEQ STK»=STK+1 AND NOT BEDDED DO 
IF BEDDED!* 
(LL?sSTAXtSTK].CF GTR FROM AND N GTR LL) THEN 
IF STAX[STK3,FFP0 THEN STaX[ STK ] ,FF ! =FR0M+2 t 
IF NOT BEDDED AND (IRSTACK OR 
T=12 OR 

CDCSTACK AND DCHIT)} ThEN 
STAX[MAxSTKIbMAxSTK+1]Is(N-1)&CfR0M+2)[18»33U53 

&lr6l47lUJ 
NOTpRtNTCALL»=NOTPRiNTCALL AND NOT MCPSAVE? 

IF (ONEMIX NEQ AND ONeMIX * MX AND MX * 0) OR 

CNONORMALCODE AND f(T*7 OR Tsl3) OR (T*l AND MX * 0)) 
OR CNOMCPCODE AnD (L, t 31 12]s6« OR MCPSAVE)) THEN 
ELSE 

IF T ■ 35 THEN 

DUMpMCPSAVEC0DECFROM+2»N) 
ELSE 

PRINTCFR0M+2»N); 
MCPSAVEJ=FALSEJ 
END! 

FROMIsNJ 
' END) 

notprintcallisfalse; 

END DUMP MEMORY AND NOTE STaCKSj 

ARRaY McPR0g[0»255] } 
INTfGER MAXMCPROG»ESP; 
ARRaY 0UTERrL0cKC0J03}8! 
PROCEDURE SrQUFNCECARAY.LiM); 

VALUE LiMI 

ARRAY ARAYrO]; 

INTEGER LIM; 
BEGIN 

INTEGER T» L ; 

REAL Vl 

STREAM PROCEDURE MOVE ( S» D »D32* M32) ) 



35103- 01168000 P 

X103« . 01168100 C 

35103- 01168200 C 

12)35103- 01168300 C 

X103- 01168400 C 

35103- 01168500 C 

35103- 01168550 c 

35103" 01168600 C 

0)35103- 0H68700 C 

*l03- 0H68800 C 

)»R) 01168900 C 

35103" 01169000 P 

35103" 01169100 C 

Q* 0) 01169200 C 

%103" 01169300 C 

35103" 01169400 C 

$103- 01169500 C 

35103- 01169550 C 

35103- 0H69600 C 

35103" 01169650 C 

01J94000 T 

0U95000 T 

01196000 T 

0H97000 T 

01198000 T 

01199000 T 

01200000 T 

01202000 T 

01203000 T 

0l?04000 T 

01208100 T 

35103- 0l?09000 P 

) 35103- 01210000 p 

35103- 01211000 P 

2103" 01212000 P 

35106- 01213000 C 

3J106- 01213100 C 

35106" 01213200 C 

3=106- 01213300 C 

01215100 T 

01216000 T 

01218000 T 

01219000 T 

01219100 T 

01220000 T 

60 IS 299 LONG* 



START OF 



221000 

222000 

223000 

224000 

225000 

226000 

227000 

228000 

229000 

FGMENT ** 

230000 T 

231000 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 



00601 
00605 
00605 
0060J 
00601 
00601 
0060! 
00601 
00605 
00601 
00601 
00601 
00605 
0060S 
00605 
00605 
00605 
0060$ 
0060? 
00605 
0060! 
00605 
0060$ 
0060! 
0060? 
0060! 
0060! 
00605 
00605 
0060? 
00605 
0060? 
0060! 
0060! 
0060? 
0060? 
0060? 
0060? 
0060? 
0060! 
0060? 
0060! 
0060! 
0060? 
0060! 
NEXT S 
0010? 
0010? 
0010? 
00105 
0010? 
OOlO? 
OOlO? 
OOlO? 

OOlO? 

****** 

0062? 
0062? 



0192 

0194 

0194 

0195 

0199 

0201 

0203 

0205 

0209 

0214 

0214 

0219 

0222 

0226 

0229 

0230 

0234 

0236 

0241 

0245 

02A5 

0247 

0251 

0251 

0254 

0260 

0261 

0262 

0263 

0267 

0268 

0270 

0272 

0277 

0280 

0281 

0282 

0284 

0284 

0288 

0289 

0289 

0290 

0290 

0291 

EG 

0216 

0219 

0219 

0221 

0221 

0221 

0221 

0221 

0221 

** 

OOOOJO 
000050 






1 

2 ' 

3 

3 

2 

3 

3 

1 

1 

2 

1 



3 





1 

2 

3 

3 

2 -- 

2 
2 
1 

2 

2 
2 
1 

1 

3 " 

1 

2 

1 



1 

i " 

3 

3 



1 

3 

10 

1 

2 

2 

3 

3 

3 

3 

3 

3 

62 



c 
c 
c 



r 



c 

c 

I- 

c 
c 

(_ 

c 

c 
c 



L 



c 



L 



O i VALUE D32«M32i 

BEGIN 

SllmSl Dl IBD* 
O D32(DS**32 WDS)* 

DSSsM32 WOSJ 
END MOVE? 
O T»=UMJ 

WHILE (T?aT»l)>0 DO 
BEGIN 
r O II»LIM| 

LJ=(VI=ARAY[T3),CFJ 
WHILE ARAYtH.CF>L DO 

- O 1 1 = i • n 

IF (L{si-T)>0 THEN 
! : : BEGIN 

: iO MOVE(ARAY[T + l]*ARAY[T]»L f c37J6]»L,[ 4315] ){ 

| ARAYCl3laVl 

end; 

. ; . O END J 

=; END SEQUENCE* 

''< ' "" 62 I 

- ; Q INTFGER BAOSAVEPRTUOC) 

PROCEDURE GETSORTANDLISTMCPROGCB); VALUE BJ BOOLEAN B* 
BEGIN 

O Real r; 



INTEGER TYP; 
q FORMAT T0TALPR0CS(///"### A TOTAL OF "»I3»" McP PROCEDURES 



START 
START 



"WERE PRESENT IN McMoRY"), 

o badlocc//"*** at least ",i4* m mcp prt locations do not % 

"contain program or data descriptors for save code "i 

~~ "as they should,,,")* 

o f(x8»"present mcp procedures"// 

/ ' , PRT M »X5»"DEScRlPT0R",X8,"THRU"//)J 

64 
O IE NOT B THEN % S0RT/*DQNT* LIST 

BEGIN 

IF DESCRlPTOR(ESPBlT#R»TYP) AND TYPs"75" THEN 
O MCPROGCMAXMCPROGlsOjU 

(E s PtsR,CF)& 

CESp+R, [81103-1 )Ii8i33li5]& 
O ESPBIT[8»38I103 

ELSE MAXMCpROG**"lJ 
IF MAXMCPROG NEQ "1 ThEn 
Q oUTERBLOCKi:o3» B CPRTMAX + l}&(ESP»'n CTFJ 

FOR 11*129 STEP 1 UNTIL PRTMAX DO 
IF DESCRIPT0R(I»R»TYP) AND 
O (TYP- M 75 M OR TYP*"77» OR TYP*"74") AND 

R.CF^ESP THfN 

""■ • McPR0G[MAXMCPR0Gl*MAXMCPR0G+13?= 

O R » C F& 

(R»CF+R,t8«l0]-l)rl8f33»153& 
I t8i 381 1031 

O SEQUENCECMCPR0G#MAXMCPR0G>J 

END ELSE % LIST ONLY 
BEGIN 



01232000 


T 


006250000*0 


r 


01233000 


T 


0062»00Q0»0 




01234000 


T 


0062'IOOOOIQ 




01235000 


T 


OO62S000OS 1 


r 


01236000 


T 


0062!0002»0 


^- 


01237000 


T 


0062*000251 




01238000 


T 


006210002! t 


c 


01239000 


T 


00625000353 


*~- 


"01240000 


T 


0062? 0006*0 




01241000 


T 


00625000650 




01242000 


T 


0062*0007*2 




01243000 


T 


0062*0009*2" 




01244000 


T 


0062I00J1I2 


C 


01245000 


T 


006250012*1 




01246000 


T 


0062 8 0014 51 




01247000 


T 


0062*001552 


c 


01248000 


T 


0062*0018*1 




01249000 


T 


0062?00i9* 3 




01250000 


T 


006210019*3 




01251000 


T 


0062?0020*0 




S 23 "LONG* 


NEXT SE'G '10 




01251500 


T 


0010*0221 53 


C 


01252000 


T 


0010*022153 




01253000 


T 


OO105022H3 




01254000 


T 


0010*0221*3 


c 


OF SEGMENT 


********** 63 


X— 


01255000 


T 


0063*0000*0 




01256000 


T 


0063*000050 


c 


of segment 


********** 64 


01257000 


T 


0064 5 0000 5 




01257100 


T 


006450000*0 


c 


01257110 


T 


006450000*0 


01257120 


T 


0064?0000?0 




01258000 


T 


006450000*0 


c 


01259000 


T 


00645000050 


S 61 LONC 


i * 


NEXT SEG 63 


- .- 


01259500 


T 


0063*0000*0 


[ 


01259600 


T 


0063*0000* 1 


- — . 


01260000 


T 


00635000152 




01261000 


T 


00635000353 


r 


01262000 


T 


006350005»2 




01263000 


T 


00635000650" 


.... . 


01264000 


T 


00635000850 


c 


01265000 


T 


00635000953 


^■— ' 


01265900 


T 


006350011*3 




01266000 


T 


0063*00128 1 


c 


01267000 


T 


006350015*3 


01268000 


T 


0063*0017*2 " 




01269000 


T 


0063*0018*0 


c 


01270000 


T 


0063*0021*2 


01271000 


T 


0063 10022 U— 





01272000 


T 


006350024*1 


c 


01273000 


T 


0063*002553 


01274000 


T 


0063 5 0028 5 


. .._ 


01275000 


T 


006350031*3 


c 


01275500 


T 


00635003352 


01275600 


T 


"00635003352 


c 



o 



o 
o 
o 
o 

jo 
;: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



END 



nextpage; 

WRITE(P#F)> 

SgU0g1=TRUE* 

FOR 11=0 STFP 1 UNTIL M A XMcPR0G DO 

0!SPLAY(McPR06CI],r8llO],TRUE)l 

sgltog»=falsei 
write(P»totalprocs,maxmcprog+d; 

IF BADSAVEPRTLOC nEQ THEN WRITEC 

end; 

get sort and list present mcp progr 



P»BADL0C»BADSAVEPRTU0C)l 
AM SEGMENTS? 



define pETANDS0RTMCPROG= 

GETSORTANDLlSTMCPR0G(FALSE)#l 

define listmcpr0g= 

retsortandlistmcproqctrue)*i 
procedure dumpmcpsavecodec from* too); 
value from, too; 
real fRom, too; 

BEGIN 

ARRAY MCPDATA r0ll27j; * HOLDS DESCRIPTOR 



63 IS 



INTEGER I»'J 
DEFINE SIZE 
SgLTOg 8* T 

maxmcpdata 

FOR I »s PR 

IF HESCRI 
IF ((Ks 
(K* w 
IF J, 
MCP 
( 
SEQUEnCE<MC 
I l« OJ 
NOTPRINTCAL 
WHILE FROM 
IF I > MA 
BfGIN 
PRINT 
FROM 

END 
ELSE 

IF FROM 

BEGIN 

PRI 

FRO 

END 

ELSE 

IF FR 

BEG 

I 

E 



S POINTING INTO 
ROM AND TOO. 



2106- 
2106- 
2106- 
2l06- 
2106- 



2 AREA BETWEEN F 
»K, MAXMCPDATA; 
F = [81 103# I 

rue; 

TBASE STEP 1 UNTfL prtmax do 

ptorct.j.k) then 

"75 m or k=»77» or k= u 74 m ) and (j.cf*esp or isespblt)) 

50" AND J,SIZ£F*0) THEN 

CF GEO FROM AND J.CF+J.SIZEF L 

DA"" " ■"■ --"■- "-- ----- 

pD 



START 



IF GEO FROM AND J, CF + J, S I ZEF L 
>ATACMAXMCpDATAJ=MAXMCpDATA+i] 
J.CF+J.SIZEF-1) FF & I SIZEF& 

»data»maxmcpdataj; % sort desc 



EQ TOO 
!s J,C 

REALCK* 
RIPTORS 



THEN 
F & 
"50") 



C1U3I 



IN ORDER BY 



L is TRUE & NOTPRlNTCALL C 1 14631 2 STACK PREVIOUS 
< TOO DO 

xm c pdata THEN 

(FROM, TOO); 

i= too; 



< CJs*McPDATA[I]fCF) THEN 

NT(FR0M»J)J 
M |= J; 



0M a J THEN 
IN 

F B00LEANCLINKTYPEI»1+MCPDATAII3,[1I13) AND N0MCPC0DE 
LSe 
BEGIN 

DlSPLAY(MCPDATA[I],SlZEFiTRUE); 

PRlNT(JtMIN(ToO,MCPDATACI3iFF+l))l 

end; 



2106- 

2106- 

2106- 

2106- 

2106- 

2106- 

2106- 

OR 

2106- 

2106- 

X106- 

2106- 

ADDRESS, 
2106" 

VAL.2106- 
2106" 
2106" 
2106- 
2106- 
2106- 
2106- 
2106- 
2106- 
2106- 
2106" 
2106- 
2106- 
2106- 
2106" 
2106- 
THEN 
2106- 
2106- 
2106- 
2106- 
2106" 



0127 
0127 
0127 
0127 
0127 
0127 
0128 
0128 
0128 
0128 
69 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
OF SEG 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 
0128 



6000 
7000 
7100 
8000 
9000 
9i00 

0000 
0300 
0500 
1000 
LONGt 



1400 
1410 
1420 
1430 
1500 
1510 
1520 
1530 
1540 
MENT 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1685 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1835 
1840 
1845 
1850 
1855 
1857" 



T 
T 
T 

T 
P 
P 
P 
P 
P 
** 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
C 
P 
P 
P 
P 
P 
P 
P 
C 
C 
C 
C 

c 
c 
c 
c~ 

c 
c 
c 
c 
c 
c 



0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 
0063 

NEXT 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
OOlO 
0010 

***** 

0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 



8003383 
« 0037; 3 



10040 

80041 

10043 

?0047 

8OO46 

10057 

80066 

10066 

SEG 

$0221 

10221 

S0221 

10221" 

80221 

* 0221 

10221' 

10221 

10221 

80001 
80001 
10001 
80001 
10002 
10003 
80005 
80006 
8 0012 
S0014 
80019 
80021 
80029 
80031 
80031 
80033 
80035 
80036 
J0036 
J0039 
80040 
80040 
)0040 
8 0043 
80043 
10046 
J0047 
80047 
80047 
J0048 
80049 
80052 
80052 
80053 
80055 
80062 



1 

3 

2 

2 



2 

" 



10 

3 " 

3 

3 

3 

3 

3 

3 

3 

3 

65 

3 

3 

3 

3 

1 
3 
2 



1 
2 
3 

3 

2 
3' 
3 
2 

"" 

1 

3 

1 

1 

1 
2 -- 

3 
1 
3 
3 
3 

r 

2 

o 

i " 

2 
2 





c 
c 
c 



r 



v_ 



L 



^ 



(_ 



u 



c 



^_ 



•v. 



v_ 



c 



L. 



u 



r 



c 



u 



v_ 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



FROM 1 = MCPDATACIJ.FF+1I 

I j* i + i; 

END 
ELSE % FROM > McPDATACH.CF 
I Ib i + ll 

SGtTOr, is false; 

NOTPR|NTCALU »= NOTPR iNTcALL » t i *463 I % POP VALUE 

end of dumpmcpsavecode; 

ARRAY iNTSPtOt I NAMES I ZE" 1 J * 

INTfGFR intspmaxi 

procedure gftsortandListintrinsics; 

beg?n 

integer imax.typ; 

real adr.r.l* 

real mix; 

format iTemcX2»A3»" s»*?(X4»A5)>» 

BADINTOC"*** BAD I NTRn SC t 1 " ) * 
F(Xe* w PRESENT INTr I nS I CSV/ 

"INDEX w »X7* M FR0M M f X5» M THRU ,t /)l 

INTSPMAX*=-i; 

IF DESCRIPT0RUNTRNSC»ADR»TYP) AND TYPp m 50" THEN 
BEGIN 

IMaXI*ADR.C8UOJ-D 

adR»=adr.cf; 

IF OPERANDCADR.R) AND R,£1»38]s0 

AND R NF-Q O AND R LfQ IMAX THEN IMAXjsR ELSE MIXI«-U 

if imax>o then 

for 11*1 step 1 until imax do 

if operandcadr+i»r) and r.cfm023 then 

lNTSPtlNTSPMAXlslNTSPMAX*lJl« 

IF 1 = 17 THEN R.CF&CR.CF + 3) cTF 8 I[8;38u0] ELSE 
R.CF& 

(if operandcr;cf-i»l> and 
o<cl>=l.ff> AND 

L51023 THEN 
R.CF+L-1 ELSE R.CF)ri6l33ll53& 
H8I38M0J i 

end; 

IF iNTSpMAXSO THEN 
BEGIN 

NEXTPAGEI 

DISPLAYCINTRNSC»TRUE)I 

IF MIX LSS THEN Wr ITEC P t DBL3 » BAD I NTO) J 

WRITECPIDBLJiF); 

SEQUENCE C I NTSP. INTSPMAX); 

FOR I**Q STEP 1 UNTIL INTSPMAX DO 

BEGIN 

WRlTE(LlNE[*],ITEMfOCTAL(LlBiNTSPtl3,C8liO])» 
OCTAL(INTSPtI],CF)» 

octalcintspU],ff)); 
if l<intmax then 

m0ve(inams[inamfcl3,cf]»linec4]» 
inaMecli.ff); 



S106* 
35106- 
S106- 
X106" 
X106- 
X106- 
Si06» 
X106- 



01 
01 
01 
01 
01 
01 
01 
01 



65 IS 



281860 
281865 
281870 
281880 
281890 
281900 
281905 
281910 
76 LONG. 



START 



START 



01 
01 
01 
01 
01 

OF s 
01 
01 
01 

OF S 
01 
01 
01 



282000 
283000 
284000 
285000 
286000 
EG'MENT 
287000 
287100 
288000 
EGMENT 
288100 
289000 
290000 



67 IS 



31 LONG. 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01. 
01 



291000 
292000 
293000 
294000 
295000 
295100 
295200 
296000 
297000 
298000 
299000 
299100 
300000 
301000 
302000 
303000 
304000 
305000 
306000 
307000 
308000 
309000 
310000 
310100 
311000 
312000 
313000 
314000 
315000 
316000 
317000 
318000 
319000 
320000 



0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
NEXT 
0010 
0010 
0010 
0010 

ooio 

****** 

0066 
0066 
0066 

****** 

0067 
0067 
0067 
NEXT 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 



10062 

10064 

10065 

10065 

10065 

10068 

10068 

10070 

SEG 

10221 

10225 

10225 

J0225 

10225 

*** 

10000 

10000 

10000 

*** 

10000 

10000 

10000 

SEG 

10000 

10001 

10003 

10004 

10005 

10007 

10009 

10014 

10015 

10017 

10020 

10022 

10027 

10027 

10029 

10031 
10032 
10036 
10040 
10040 
10041 
10041 
10045 
10047 
$0051 
10054 
10055 
10057 
10057 
10065 
10068 
10075 
10076 
50078 





1 

3 

3 

3 



1 

1 

10 

3 

3 

3 

3 

3 

66 







67 







66 



2 

3 



3 

2 

2 

1 

3 

2 





2 

3 

3 

3 

1 

1 





2 

3 

3 

2 

2 



3 

2 

2 

2 

1 

2 



1 



c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 

r 
C 



c 



o 
o 
o 
o 
•o 
io 
to 
■•o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



WRITE(PCDBL]i7»LINE[*])I 



end; 
end) 

END GET SORT AND LlST PRESENT jNTRiNSiCSJ 

STREAM PROCEDURE MOVC f S, Sp»D»DP, W, C ) J 

VALUE Sp,Dp,W,C) 
BEGIN 

SIjsSj SIjsSI+Sp? 

DI)bD) DltsDI+DP; 

W(DS|b8 CHR)I DSI=C CHR) 
END MOVCJ 
BOOLEAN PROCEDURE W I THIN ( aRaY» AMAX, I TEM, RESULT* PLUS ) ) 

VALUE AMAX, ITEM) 

ARRAY ARAYCOJJ 

INTEGER AMaX*iTeM#ReSuLT*PLUS; 
BEGtN 

BOOLEAN FOUND! 

LAREL EXIT? 

IF AMAX>0 THEN 

FOR IJsO STEP 1 UNTIL AMAX DO 

IF FOUNd?= 

caRaycij.cfsitem and item <aRay[id.ff) then 

BEGIN 

Resulti*arayc n.teiioji 

PLUSIsiTEM-ARAYtn.CFJ 
GO TO EXITS 
END) 

ex it i withins-fq u nd; 
end within) 

ARRAY Pr0GSE0)3, 012553) INTEGER PROWS; 2104- 

DEFINf CONVERTIT * MSG »s DD 2104- 

DI I s LOc T) 2104- 

DI »<* DI + 1) 2104- 

' OS is 7 DEC) 2104- 

DI I* DI " Ti 2104- 

DS 5* 6 FILL) 2104- 

DI l« MSG) 2104- 

SI Is LOc T) 2104- 

SI I* SI + 1) 3104- 

7 (IF SC » H " THEN SI |s SI + 1 ELSE DS Is CHR) 

#) 2104- 

STREAM PROCEDURE FORMATCODENAMEC MSG, WH I CH ,SEG» ADR#SYL# NAME* N) J 2104- 

VAUuE WHICH, SEG*ADR»SYL,Nj 2104- 

BEGlN 2104- 

UOCAL. T) 2104- 

LABrL MOVADR, MCPCODE, INTRINSIC, MOVNAM, EXIT, MCPOUTERBLOcK) £104- 

Dl := MSq) ?l04- 

CI {s CI + WHICH* 2104- 

Go To MOVADR) 2104- 

Go To MOVADR) 2104- 

Go TO MOVADRJ 2104- 

SI := LOC SEG) 2104- 

CONVERTIT; 2104- 

DS t s LIT "»"; 2104- 



66 IS 



01 
01 
01 
01 



321000 T 
322000 T 
323000 T 
324000 T 
90 LONG, 



START 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
OF S 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



325000 
326000 
327000 
328000 
329000 
330000 
331000 
332000 
333000 
334000 
335000 
336000 
337000 



EGMENT ** 



68 IS 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



338000 

339000 

340000 

341000 

342000 

343000 

344000 

345000 

346000 

347000 

348000 

349000 

18 LONG, 

349005 C 

349010 

349020 

349030 

349040 

349050 

349060 

349070 

349080 

349090 

349100 

349110 

349120- C 

349130 C 

349140 

349150 

349160 

349170 

349i80 

349190 

349200 

349210 

349220 

349230 

349240 



0066 
0066; 
0066' 
0066 
NEXT 
0010 
OOlO: 
0010' 
0010 
0010: 
0010: 

ooio; 

0010 
0010 
0010: 
0010 

ooio; 

0010: 

0068> 
0068; 
0068 
00681 
0068 
0068: 
0068: 
0068 
0063? 
00681 
0068 
0068 
NEXT 
0010: 
0010 
0010 
0010 

ooio; 
0010: 
OOlOi 
0010: 

ooio 
ooio 

0010 

ooio 

0010; 
ooio; 

0010 

ooio 

ooio: 

ooio; 

OOlO 
OOlO 
0010 
0010 
0010 

ooio 

0010 



1008010 


c 


1008410 




1 0086* 1 




! 00661 1 


c 


SEG 10 




1022553 




1022513 


c 


1022513 




5 022610 




502265 1 


c 


5022753 




5 0229 5 3 




1022953 


! 


5022953 




! 0229 5 3 




5022953 


c 


1022953 




50229)3 




*** 68 


c 


5000050 




! 00005 0" 




500005 1 


c 


5000250 




5000250 




5000650 


c 


500065 1 


V— 


5 0008 5 




500iO?l 




5001152 


^_ 


5 001352 """ 




1001451 


c 


SEG 10 




I0229J3 




10232:1 


c 


5023251 




5 023251 




5023251 


r 


5023251 




5 023251 




5023251 


c 


5023251 


S— 


5 023251 "~ 




1023251 


c 


5023251 


5 0232 5 1 ■- 




5023251 


c 


5023251 


5023450 "" " 




5023410 


r 


5023450 


^~ 


5023450 




5023451 


L 


5023552 




5 0235)2 




1023553 


c 


50235)3 




5 023953 





L 



u 



u 
o 
o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

,-—s 

u 

o 
o 
o 



MOVADRJ 

si i? loc adR? 
convertit; 
ds x- lit "? m ? 

Si i* LOC SYLJ 

CONVERTIT? 

OS |p 4 LIT " OF "? 

CI j= CI + WHICH? 

go to mcpcooe; 
go to mcpouterblock; 
go to intrinsic! 
ds i- 12 lit "user program"! 

GO tO EXIT? 
McPOUTERBLOcK! 

DS is 15 LIT "McP OUTER BLOcK"* 

GO TO EXIT? 
MCPCOnE' 

DS t~ 8 LIT "MCP 

GO TO MOVNAM? 
INTRINSIC? 

DS is 

MOVNAM? 

DS is 3 LIT 
Si {5 NaMe? 

(IF Sc = " 



CODE"! 

9 LIT "INTRINSIC"! 
- "j 



8 



THEN JUMP OUT 2 TO EXIT ELSE DS la CHR ) )? 



N ( 
EXIT! 

DS «s LIT ARROW! 
END Of fORMATcODeNAME? 
BOOLEAN PROCEDURE W I THI NCODESFGMENTf ADDRESS ,SEG# ADR » SYL* MS 
VALUE ADDRESS, SYL? 
INTEGfR ADDRESS»SEG#ADR»SYL? 
ARRAY MSG[*3? 
BEGIN 

INTEGfR I? 



G)? 



2104- 
2104" 
2104- 

2104- 
2104- 
2104" 
2104- 
2104- 

2104- 
35104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 
2104- 



BOOLEAN FLAG? 
I «* -1? 
IF WITHINCODE 
FORmATCODEN 
NAMEfSEGl 
ELSE 

IF WITHINC0 
FORMATCOD 
ELSf 

IF WITHIN 
FORMATC 
INAME 
ELSE 

WHILE t 

IF WI 

A 

FOR 

END OF WITHINCO 



START 



SEGMENT 5* WITHlN(MCPROG#MAXMCPROG, ADDRESS, SEG*ADR) 
AMEfMSGt*]»0,SEG,ADR,SYL»NAMSCNAME[SEG].CF], 
FF) 



DESEGMENT != WiTHlN(0UTERBL0CK»0»ADDRESS»SE 
ENAME(MSGt*3»l»SEG»ADR?-ADDRESS#SYL»SYL#SYL 

CODESEGMENT != WITHINCINTSP* INTSPMAX* ADDRES 
0DENAME(MSGC*]t2#SEG»ADR#SYL#INAMS[INAMECSE 
[SEG]«FF) 

I»al+1) LEQ PROWS AND NOT FLAG DO 
THINCODESEGMENT»=FLAG«s=WITHlNCPROGStI»*]»PR 
DDRESS,SEG,ADR) THEN 

MATC0DENAME{MSG[*]f3,SEG»ADR»SYL»SYL»SYD? 
DESEGMENT? 



G.ADR) 

) 



2 



INTfGER PROCEDURE SPREAD( AT, F»C )? VALUE AT? 
INTEGER AT»F»C! FORWARD? 



2104- 

2104- 

THEN 

2l04- 

2104" 

2104- 

THEN 

2104- 

2104" 

S»SEG»ADR)THEN 

G3,CF]# 2104- 

2104- 

2104- 

2104- 

0GSCI,255], 

2104- 
2104- 
2104- 

2104- 



69 I 



01349250 C 


00105024050 


r 


01349260 c 


0010!0241?2 




01349270 c 


0010J024TI2 




01349280 C 


00105024512 


c 


01349290 C 


0010J0245J3 




01349300 C 


00105G24650 




01349310 C 


0010?0250?0 


\__ 


01349320 C 


0010?0250»1 




01349330 C 


00105025152 - 




01349340 C 


0010?0251?3 


c 


01349350 C 


00105025153 




01349360 C 


00105025250 




01349370 C 


0010?0253?3 


c 


01349371 C 


00101025410 




01349372 C 


00105025450 




01349374 C 


0010?0256!Q 


c 


01349380 C 


0010?0256?1 




01349390 C 


0010J025712 




01349400 C 


OO10JO258I0 


c 


01349410 C 


00l0?0258?i 




01349420 C" 


00 10! 0259? 2 




01349430 C 


001QS0260J1 


c 


01349440 C 


0010;0261?2 


^ — 


01349450 c 


0010?0261?3 


" 


01349460 C 


00105026250 


**- 


01349470 C 


0010?0265?3 


N™, 


01349480 C 


0010!0266?0 


.._,-., 


01349490 c 


00l0?0266? 1 


c 


01349500 C 


0010?0266?1 




01349510 C 


00i0?0266? 1 


- ■ 


01349520 C 


001010266? 1 


c 


01349530 C 


0010!0266?1 


V- 


01349540 C 


0010S0266S1 




01349550 C 


0010?0266?1 


' 


OF SEGMENT ********** 69 




01349555 C 


0069J0000?0 





01349556 c 


0069?0000?0 


c 


01349560 C 


006910001 ?2 




01349570 C 


0069!0004?0 




01349580 C 


00695000811 


c 


01349590 C 


0069?00l0?0 




01349600 C 


0069i00l0»l 




01349610 C 


00695001450 


r 


01349620 C 


00695001850 




01349630 C 


0069?0018?0 " 




01349640 C 


0069I002H2 


c 


01349650 C 


OO695002553 


*-~- 


01349660 C 


00695002752 " " " 




01349670 c 


00695002712 




01349680 C 


0069»0031?2 


v ^- 


01349690 C 


00695003353 


■■■ "~™ 


01349700 C 


OO6950O3650 


c 


, 01349710 C 


OO695O03953 


S 43 LONG* 


NEXT SEG 10 




01350000 P 


00105026651 


c 


01351000 T 


0010:0266* 1 


**— 


01352000 T 


00105026651 





O : Real lociRcwj 

PROCEDURE DUMPSTACK(INX)? 
VALUE I NX; 
O INTEGER INX; 



O 



BEGIN 

integer tos»boS»seg»adr*h»l»pro* i; 

START 



INTEGER FUNNYMSCW, WHICH* 2104- 

REAL V.rj 
O REAL tosorig*x#y; boolean woops; 

label errowt; 

label dumpit; 
O label skipeee; 

LABEL SGUEEZE.CUTBACK.XjT; i;Z^Zn r ZrnlZZi: <- 

DEFINE CD=W00PS #J 
: DEFINE DELTA"50#I 

DEFINE MAXSTACKSIZ E =512#IX MAX STACK BELOW TOS WE»LL DUMP 01^65000 T 007olooo0l0 

DEFINE SPEC=?BOOLEAN(STAX[INX],C^ln)#) 
iO BOOLEAN NORMAL* RCWI *104- Ouaaooo p oornionnnm r 

FORMAT HDCX8, "STACK FROM %A5," DOW N TO "»A5>» °^66000 P 0070*0000*0 L 

START 
O TRlTEM(A5i M = »# A 6# 2(X 1 * A5) ) , 

S(X8,»BEDC'%A3,"3 s w .A6tXl,A5fXl»A5#"f MASK* », 
A6»2(Xlt A5)) t 
O C(X8f 3A6»Xl,A4 i "( w »I4# ")»,» + «, A4« " (", I 4, " J "# I i, » )« ) J 



71 I 



STREAM PROCEDURE FORMATRc WC L I NE > F# C, NAME)) <u04- 

O RcrJlj UE F * C} *104- U137O03U C OU7OIO000I0 

, Jr»i -. 2104- 01370040 C 0070*0000*0 

LOCAL TJ $104' 

O DI « s LINE? j;j 04 , 



DI l- DI + 321 

13 CDS * = 8 LIT " ")l 



2104- 
2104" 



O DI ,= LINE* fl04 „ 



DI is DI + 30; 



DS |? 10 LIT "-"RCW* f- m * xl o4 

O S * Je L °C FJ n04 . 

Si is SI + 5? - 104 

SKiP^3_SB; 2104 

Jl04 



O 5 OcTADE? 

DS j= 4 LIT •% Cs"? 
Si is LOC Cl 

O s i * B si ♦ 5; 



2104- 
2104' 



c^ f " -i ; D , "' 2104- uuruisu c uuruiuoobii r 

" P . J 5B ' 2104- 01370190 C 00701000912 ^ 



5 °CTADE* %l0 H 

O DS *s 2 LIT " (»; %104- 

SI ** NaMf? X104" 

63 clF SC J* ARROW THEN DS » = CHR ELSE JUMP OUT); £104- 

O DS := LIT »)"| „ l04 „ 

END Of formatrcwj %\oh» 

STREAM PROCEDURE FORMATMSCW fL iNE» R# MSfF# SALF» FU siQ4 
O VALUE R. MSFF, salf, f; 

BEGIN 



2104- 
2104- 

DI ** LINE? -I 04- 

O DI ** DI + 32; 

13 (DS ?* 8 LIT n W )I 



2104- 
2104- 



n 



di »= line; s 104 



01352500 


T 


0010*0266? 1 


01353000 


T 


0010102661 1 


01354000 


T 


0010*0266*1 


01355000 


T 


0010102661 1 


01356000 


T 


00101026611 


01357000 


T 


0010*0266* 1 


OF SEGMENT 


********** 7Q 


01357100 


P 


0070*0000*0 


01358000 


T 


0070*0000*0 


01359000 


T 


00701000010 


01360000 


T 


007080000*0 


01360100 


T 


0070*0000*0 


01361000 


T 


0070*0000*0 


01362000 


T 


0070*0000*0 


01363000 


T 


0070«'OOOOIO" 


01364000 


T 


0070*0000*0 


01365000 


T 


0070*0000*0 


01365100 


T 


00701 0000 JO 


01366000 


P 


0070*0000*0 


01367000 


T 


0070*0000*0 


OF SEGMENT 


********** /j 


01368000 


T 


0071*0000*0 


01369000 


T 


0071*0000*0 


01370000 


T 


0071 JOOOOSO" 


01370010 


C 


0071*0000*0 


S 56 LONG* 


NEXT SEG 70 


01370020 


C 


0070*0000*0" 


01370030 


C 


00701000010 


01370040 


C 


O07o;oooo*o 


01370050 


C 


0070*0000*0 


01370060 


C 


0070*0000*0 


01370070 


C 


0070*0000*0 


01370080 


C 


■ 0070*000011 


01370090 


C 


0070*0002*0 


01370100 


C 


0070*0002*1 


01370110 


C 


0070*0002* 1 " 


01370120 


c 


0070*000450 


01370130 


c 


0070*0004*1 


01370140 


c 


0070*0004*1 


01370150 


c 


007010005*2 


01370160 


c 


0070*0007*3 


01370170 


c 


0070*0008*1 


01370180 


c 


0070*0008*1 


01370190 


c 


0070*0009*2 


01370200 


c 


0070*0009*2 " 


01370210 


c 


0070*0012*0 


01370220 


c 


0070*0012*1 


01370230 


c 


0070*0012* 1 


01370240 


c 


0070*0015*2 


01370250 


c 


0070*0015*3 


01370260 


C" 


0070*0015*3 


01370270 


c 


0070*0015*3 


01370280 


c 


0070*0015*3 


01370290 


c 


0070*0016*0" 


01370300 


c 


0070*0016*0 


01370310 


c 


0070*0016*1 


01370320 


c 


0070*0018*0"" 



r 



L 



L 



L 
r 

c 
c 



c 



( } 



V 



c 



O i 

o 

- o 

Q 

- u 

ijo 

o 
o 



o 
o 
o 

o 
o 
o 
o 

o 



01 »e DI + 32) 

DS (s 9 LJT "MSCW! 

si i= loc f; 
si i= si + s; 

SKIP 3 SB! 
5 OcTADE) 



F*") 



DS 
SI 
SI 
DS 
DS 
Si 

si 

DS 
DS 
Si 
Si 



5 = 

! = 
!« 
J- 

i~ 

8 = 
l~ 
1 = 
1 = 



7 LIT "» MSFFs") 

LOC msff; 

SI ♦ 7) 

CHR) 

7 LIT "f SALF«") 

LOC SALF? 

Si + 7) 

chR; 

, Rs") 



4 LIT 

LOC R) 

Si + 6) 
SKIP 3 SB) 
3 OcTADEI 
DS \= 2 LIT "00") 

end; 

STREAM PROCEDURE FORMaTDESC (LiNE* 
MoMadDRESSi MOMpLG)) 

VALUE PRESENCEBIT, LENGTH, ADDRESS, 
BEGIN 

LABfL 

DI 

DI 

13 

DI 
DI 



PRESENCEBIT* LENGTH^ ADDRESS! 
M0MFLG, M0MADDRESSJ 



N0M0M; 



Ll» ThISiSAMOM* 
1= LINE* 
1= DI ■♦- 32* 
(DS l» 8 LIT « »)i 

is LINE) 

}* DI ♦ 341 
PRESENCEBIT CDS 8 = 7 LIT "PRESENT"} 
DS :« 11 LIT "NON-PRESENT"; 
LI 1 

LENGTH (DS is 6 LIT " ARRAY") JUMP OUT)) 
DS i* 21 LIT " DESCRIPTOR, ADDRESS*") 
SI l» LOC ADDRESS) 
Si js Si + 5) 



JUMP OUT TO LI)) 



SKIP 3 SB) 
5 OcTADE) 
LENGTH CDS 
SI 



is 9 LIT ", LENGTHS") 
»«= LOC LENGTH) 
SI is= SI + 6) 

4 OcTADE) 

DS !* LIT "(") 

si i= loc length; 
ds s«= 4 dec; 
ds ?= lit »)») 

JUMP OUT)) 
Cl j* CI + MOMFLG) 
GO TO N0M0M) 

GO To thisisamom; 

DS ts 9 LIT ", MOM AT ") 
Si j= LOC MOMADDRESS) 
SI |= SI + 5) 

SKIP 3 SB) 
5 OcTADE) 



2104- 


01370330 


c 


0070)001811 


C 


2104- 


01370340 


c 


0070)0018)1 




no4" 


01370350 


C 


0070I0020J0 




2104- 


01370360 


c 


0070*0020) 1 


r 


2104- 


01370370 


C 


0070)0020) 1 




2104- 


01370380 


C 


0070)0021)2" 




2104- 


01370390 


C 


0070I0023«3 


c 


2104- 


01370400 


C 


0070?0025«2 




2104- 


01370410 


C 


0070) 0025 "l"2"" 




2104- 


01370420 


C 


0070)0025)3 


c 


2104- 


01370430 


C 


00701002513 




2104- 


01370440 


C 


007010027 8 2 ' 


- " ~ 


2104- 


01370450 


c 


0070)002752 


c 


2104- 


01370460 


c 


007010027)3 




2104- 


01370470 


c 


0070)0027)3 




2104- 


01370480 


c 


007010028)1 


c 


2104- 


01370490 


c 


0070)0028)1 




2104- 


01370500 


c 


007050029)2 




35104" 


01370510 


c 


007050029)2 


c 


2104- 


01370515 
01370520 


c 
c 


0070)0032)0 
0O7O5O032J1 




2104* 




2104- 


01370530 


c 


00705003251 


c 


2104- 


01370540 


c 


007050032)1 




2104- 


01370550 


c 


0070)0032 5 1 




2104- 


0137Q560 


c 


0070)0032'! 


c 


2104- 


01370570 


c 


OO7O5O03352 




2104- 


01370580 


c 


0070 5 0033 5 2 




2l04» 


01370590 


c 


OO7O5003352 


c 


2104- 


01370600 


c 


00705003353 




2104- 


01370610 


c 


0070 5 0035 5 2 " 




2104- 


01370620 


c 


007050035)3 


c 


2104» 


01370630 


c 


00705003553 




2104- 


01370640 


c 


00705003851 


- ' — —- 


2104- 


01370650 


c 


00705004061 


c 


2104- 


01370660 


c 


00705004152 




2104- 


01370670 


C ' 


00705004480 




2104- 


01370680 


C 


00708004752 


c 


2104- 


01370690 


C 


00705004752 


^—r 


2104- 


01370700 


c 


O07O5O0475 3 


' ' """"" 


2104- 


01370710 


c 


00705004783 


c 


2104- 


01370720 


c 


00705005081 


s^. 


2104- 


01370730 


c 


00705005352 


— " 


2104- 


01370740 


c 


00705005352 


r 


2104- 


01370750 


c 


00705005353 


^-_ 


2104- 


01370760 


c 


00705005650 





2104- 


01370770 


c 


0070)005651 


if*** 


2104- 


01370780 


c 


00705005752 


^-»w 


2104- 


01370790 


c 


0070*005752 " 




2104- 


01370800 


c 


00705005783 


c 


2104- 


01370810 


c 


00705005952 




2104- 


01370820 


c 


OO708O05953 




2104- 


01370830 


c 


00705005953 


c 


2104- 


01370840 


c 


00705006080 




2104- 


01370850 


c 


007050061*3 '"'" 




2104- 


01370860 


c 


00705006153 


c 


2104- 


01370870 


c 


00705006250 




2104- 


01370880 


c 


00705006250 





u 



V 



o 
o 

o 

o 

''O 
to 

•o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



GO tO NOMOM; 
THISISAMOMI 

DS i* 16 LIT " - THIS IS a MOM"; 
NOMOMs 

END Of formatdesc; 

STREAM PROCEDURE FORMATOP(L I Ne» VaL* LINE2JI 

VALUE VALJ 
BEGIN 

DI l = LINE* 
DI «s DI + 32; 

13 ( os is 8 Lit " "); 

DI l= LINE? 

DI {- DI + 34; 

DS is 18 LIT "OPERANDI DfCiMaLs"; 

Si |= LINE2J 

32 flF SC » " » THEN Si Is SI + 1 ELSE DS 1= CHR)* 

DS |s 6 LIT "» BCLs»; 

DS is LIT """» 

SI is LOC VALJ 

DS is 8 CHRl 

DS is LIT """; 

end; 

STREAM PROCEDURE FORM A TPROGnESC CL I Ne» WHI CH» PRI T» NAME ) I 

VALUE WHICH»PBlTJ 
BEGIN 

LABFL LI* ACCIDENTRY* WORDMODE* LABELDESC* MODE* REST; 
DI ts L.INEJ 
DI is DI + 32? 
13 (DS is e LIT " «)l 
DI 1= line; 
DI is DI + 34; 

PBIT CDS I* 7 LIT "PRESENT"; JUMP OUT To LI); 
DS { s 11 LIT "NON-PRESENT"; 
Lll 

ci is ci + which; 

GO TO ACCIDENTRYJ 
GO TO WORDMODEI 

GO to labeldesc; 

DS »s 10 LIT " CHARACTER"; 

GO TO MODE? 
LABELnESCl 

DS is 6 LIT " LABEL"; 

GO TO rfst; 
ACCIDfNTRYI 

D5 is 17 LIT " ACCIDENTAL ENTRY"; 

go to rest; 
woRdmodei 

DS is 5 LlT » WORD"* 
MODE* 

DS is 53 LIT » MODE PROGRAM'*; 
RESTl 

DS 1= 11 LIT " DESCRIPTOR"* 
PBIT ( DS Is 4 LIT " Tq "; 
SI Is NAME; 

63 (IF SC s ARROW THEN JUMP OUT ELSE DS Is CHR) ); 
END Of FORMATPROGDESCl 



5U04- 


01370890 


C 


X104- 


01370900 


C 


*104» 


01370910 


C 


X104- 


01370920 


c 


*104- 


01370930 


c 


% 1 4 - 


01370940 


c 


X104- 


01370950 


c 


S104- 


01370960 


c 


X104- 


01370970 


c 


S104- 


01370980 


c 


X104- 


01370990 


c 


X104- 


01371000 


P 


«104* 


01371010 


c 


X104- 


01371020 


c 


X104- 


01371030 


c 


X104» 


01371040 


c 


*104- 


01371050 


c 


X104- 


01371060 


c 


SU04- 


01371070 


c 


X104- 


01371080 


c 


S104* 


01371090 


c 


M04- 


01371100 


c 


X104- 


01371110 


c 


X104- 


01371120 


c 


X104- 


01371130 


c 


*104- 


01371135 


c 


%{OH« 


01371140 


c 


3?l04- 


01371150 


c 


X104- 


01371160 


c 


X104- 


01371170 


c 


3104- 


01371180 


c 


X104- 


01371190 


c 


X104* 


01371200 


c 


S104- 


01371210 


c 


35104" 


01371220 


c 


*104- 


01371230 


c 


31104- 


01371240 


c 


3104- 


01371250 


c 


£104" 


01371252 


c 


X104- 


01371254 


c 


X104- 


01371256 


c 


Z104- 


01371260 


c 


X104- 


01371270 


c 


X104- 


01371280 


c 


%104* 


01371290 


c 


X104- 


01371300 


c 


%104- 


01371310 


c 


*104- 


01371320 


c 


%l04- 


01371360 


c 


«104* 


01371370 


c 


X104- 


01371380 


c 


X104- 


01371390 


c 


25104- 


01371400 


c 


X104- 


01371410 


c 


SU04- 


01371420 


c 


X104- 


01371430 


c 


XI 04*" 


01372000 


p 



0070 


100651 


0070 


100651 


0070 


100661 


0070 


100681 


0070 


100691 


0070 


100691 


0070 


I0069J 


0070 


(00691 


0070 


10070? 


0070 


100701 


0070 


(0070! 


0070 


(00721 


0070 


(00721 


0070 


(00721 


0070 


(00751 


0070 


100751 


0070 


0077J 


0070 


10078? 


00701 


0078? 


0070 


(0079? 


0070 


0079? 


0070 


0079? 


00701 


0080? 


0070 


0080? 


0070 


0080? 


00701 


00801 


0070 


0080? 


0070 


0080? 


0070 


0080? 


0070 


0082? 


00701 


0082? 


00701 


0082? 


00701 


0085? 


00701 


0087? 


0070i 


00881 


00701 


00881 


00701 


0088? 


00701 


0089? 


00701 


0089? 


0070i 


0090? 


00701 


0091? 


00701 


0091? 


00701 


0092? 


0070! 


0092? 


0070! 


0093? 


0070! 


0095? 


00701 


0095? 


00701 


0096? 


0070! 


0097? 


0070! 


0097? 


0070! 


0099? 


00701 


0099? 


0070! 


0100? 


0070! 


0102? 


00701 


0102? 


0070! 


0105? 


0070101051 



»2 
?2 
10 
10 
12 
12 
?2 
?2 
10 
10 
II 

10 
?1 

?1 

?2 
?3 

?2 

?0 
?i 
?2 
12 

?3 

SO 

?0 

10 

?0 

10' 

10 

*i 

10" 

?i 

?i 

13 
?3 
10 
II 
•1 
?2 
»2 
?1 
?2 
12 
10 
»0 
«2 
? 3 
?3 
10 
?2 
?2 
?2 
?2 
?1 
?'l 
?1 
?2 
i 3 



C 

c 
c 



r 



c 
c 
c 



c 
c 
c 
c 
c 
c 



v_ 



L 



c 



f / 



o 



r 



U 

o 
-o 

o 
*o 
Jo 
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"o 

r.i 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



nextitem; 

WRlTE(PtD8l3»HD» 

IE (TOS»sSTAX[INX] ,CF) LSS 127 ThEN «*****«» 
ELSE OCTALfTOS), 
IF (BOSI»STAXtlNXj,FF) LSS 64 THEN "*****» 
ELSE OCTAL(BOS)); 
IF BOS LSS 64 THEN B0S!=0j 
IF TOS LSS 127 THEN TOSf-OJ 
IF tos=o THEN go eRROwtj*f.g. IN EARLY SELECTRUN 
IF SPEC THEN GO DUMPITi 

NORMAL «cBOOLEAN(STAXC|Nx] f [7H ] )* 
IF INX=0 OR INX>BEDSTK THEN 
BEGIN 
IF NORMAL THEN 
BEGIN 

WRI TE Cpt0BL]»TRlTEM»0CTAL( TOS) *0C TALC SPRE ADC T0SiH»L))» 

OCTALCH)*0CTALCL)>* 
ToSJsTcjS-i J 
END; 

IF NOT NORMAL AND B0S=64 THEN 
FOR T0S|=127 STEP "1 UNTIL ACTUaLPRTBASE DO 
BEGIN 

WRlTECLlNEt*]»TRlTEM»OcTALCTOS),OcTALCSPREADCTOS#H*L))» 

octaLch).octal(D); 

MOVF(XNAMSrXNAMEETOS3 f CF3iLjNEC5]#XNAME[TOS3,FF)? 
WRITECP[DBL3#8,LINE[*]); 

end; 

if booleancstax[inx].f 6* 1]) then begin 

ToSORIGJsToS; 
SQUEEZEtDO TOSlsTOS-1 UNTIL CWOoPS*=T()S LEO BOS) OR 

CONTROLDESCCTOS,X)J 
IF WOOPS THEN BEGIN T0S$=T0s+10; GO XlT END) 
CUTbACKIIF (YlsX.FF) GE9 BOS AND 
Y LEO BOS + 1 AND 

CD'nCONTROLDEScCY.X) THEN 

begin 

ToS»=MlNcToSoRIGfToS+DELTA); 
GO XlT; 

end 
else 

if y gtr bos +i and y lss tos 
and cd then 
go cutback; 
go squeeze; 

XITj 
END; 

IF B0S=64 THEN 

IF 0PERANDC107»V) AND V*( Y »= M EEEE"& M EEEE M C 1 * 25 * 23 J ) THFN 

BEGIN - 

FOR Ii*i08 STEP 1 UNTIL 111 DO 

IF OPERAND(I»V) AND V NEQ Y THFN 11=1121 

if 1=113 Then for toSi=ih step -i until 10a do 

WRITECP[DBL3#TRITEM,0CTALCT0S), 

OCTALCRJ 'SPREAD CTOS.H.D). 
OcTALCH)tOCTAL(D); 

end; 
skjPeeej 



01373000 


T 


0070*0105*3 


c 


01374000 


T 


0070*0106*1 




01375000 


T 


0070J0109S2 




01376000 


T 


0070JOH4J0 


c 


01377000 


T 


0070(011810 




01378000 


T 


O070I0121T3 




01379000 


T 


0070*0128*0 


c 


01380000 


T 


0070*013010 


v_~ 


01381000 


T 


0070*0132*0 




01381100 


T 


0070*0133*3 


c 


01382000 


T 


0070*0135*2 




01383000 


T 


0070*0136*1 


■ — 


01384000 


T 


0070*0138*1 


c 


01385000 


T 


0070*0139*2 




01386000 


T 


0070*0139*2 




01387000 


T 


0070*0139*3 


r 


01388000 


T 


0070*0149* 3 




01389000 


T 


0070*0157*2 """" 




01390000 


T 


0070*0158*1 


c 


01391000 


T 


0070*0158*1 




01392000 


T 


0070*0160*0" "" 


,_,__ 


01393000 


T 


0070*0162*0 


c 


01394000 


T 


0070*0162*0 


01395000 


T 


0070*0172*1 


■" — "" 


01396000 


T 


0070*0180*0 


c 


01397000 


T 


0070*0184* 1 


01398000 


T 


■'00701018912— ' 


■ — 


01399000 


T 


0070*0191*2 


c 


01400000 


T 


0070*0192*1 


01401000 


T 


0070*0193*3 




01402000 


T 


0070*0196*1 


c 


01403000 


T 


0070*0198*0 


01404000 


T 


0070*0200*1 




01405000 


T 


0070*0202* 1 


(J 


01406000 


T 


0070*0204*0 


^s 


01407000 


T 


0070*0206*0 


. .„ 


01408000 


T 


0070*0206* 1 


o 


01409000 


T 


0070*0210*0 




01410000 


T 


0070*0210*1 




01411000 


T 


0070*0210*1 


o 


01412000 


T 


0070*0210*1 




01413000 


T 


0070*0212*1 




01414000 


T 


0070*0213*3 


o 


01415000 


T 


0070*0214* 1 




01416000 


T 


0070*0215*2 




01417000 


T 


0070*0215*2 


o 


01418500 


T 


0070*0215*2 


^— ' 


01418510 


T 


0070*0215*3 




01418520 


T 


0070*0219*3 


o 


01418530 


T 


0070I0220S0 


01418540 


T 


00 70*0222*0 " 




01418560 


T 


0070*0227*3 


o 


01418570 


T 


0070*0230*0 


01418575 


T 


0070*0236*0 


-- 


01418580 


T 


0070*0240*0 


o 


01418590 


T 


0070*0250*1 


01418600 


T 


0070?0250ri 






O ! 

o 

o 
o 

b 

■b 

o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 



if operandctos,v) Then 

IF t (V=«EEFE»&"EEEE»C1»25J23]) AND NOT NORMAL) OR 

<cVB"[r[["&"ttri:"rii25i23i , > and 

NORMAL) THEN 

WHILE OPERAND(TOS-l.R) AND R*V DO 

ToSisToS-1) 
END 
ELSE 
BEGIN 

HRlTECPrDBL]»S»OCTAL(V*STAX[INX] ( C8H03). 
OCTaLCSPREAD<V«-V + VBeD,CF»H»L))» 
OcTaL(h)»OCTAL(L), 
OCTaL(R#-SPREAD(V + 1»H»U))» 

octaLch)#octal(D); 

IF 0CTAL<R,t30i6])s»74" THEN 

IF WITHIMCMCPROGaMAXMCPROG»L,CF»SEG»ADR) THEN 
BEGIN 

WRlTEaiNEr*J.Ci"COMPLE"»"X SLEE"»"P AT ••» 
OCTALCSEG3,SfG»OcTAL(ADR)»ADR#R»E40»23)I 
MOVECNAMS[NAM F [SEG3,CF]»llNECr]. 

NAMptSEGJ.FFJi 
WRiTE(P[DBL3»l5.LINE[*3)? 
END 
ELSE WRjTE(P)J 

end? 

if bos-o then bosumaxco»tos*cif normal then maxstacksize-i 
else 128)) e l se 

THEN B0S?s M AX(0»T0S-l); 
GEQ MAXSTACKSIZE 
BOS8sTOS»MaXsTACKSIZE+1I 



IF 
IF 



80S>T0S 
TOS-BOS 

then 

DUMpITjX 

IF mystack a dr gtr and mystacksize-o then 
if not mystackdumped thfn 

IF MYSTACKADR Le<3 TOS T H EN ' 

if mystackadr gtr bos Then 
mystackoumpedj=true; 

FOR psTOS STfP -1 UNTIL BOS DO 
BEGIN 

PROfe-i; 
RCW 5 = FALSE* 

WRITEaiNE[*]»TRlTEM#OCTAL(I),OCTALCRI-SPREAD(I,H»L))» 

OCTaLCH)*OCTAL(L))« 
IF CONTROLDESc(I»X) AND (X,cF * 0) AND (X.FF GEQ BOS) AND 

Cx.FF < TOS) AND I * FUNNyMSCW THEN % IT LOOKS LIKE RCW, 
RCw Is WITHlNCODESEGMENTfL.CF. SEGi ADR, R, [40123, ALINE[*])J 

tf not rcw % so far anyway 

and normal then % check for overlaid normal state 

IF oPERAND(I,X) AND X,tHO * j AND X,[3in s THEN 

IF RCW 1= ((Y Is X.FF) GEq BoS AND Y < I AND (SEG 

AND SEG < 1023 AnD COnTROlDESCC Y ,R ) ) THEN 
BEGIN 

FORMATCODENAME(ALINEC*3>3*SEG»R,CF»X,UOJ23»X,X)J 
FUNNYMSCW 8 = YJ 
ENDJ 
IF RCW THEN % FORMAT THE LINE, 

F0RMATRCW(LINE[*3, H, L, aLINe[*3) 
ELSE 



CODE, 



»- X.CF) * 





01419000 T 


00705025182 


c 




01420000 T 


0070?0252*0 






01421000 T 


0070J0255«2 






01422000 T 


0070102561 1 


c 




01423000 T 


OO7O5025753 






01424000 T 


00705026152 






01435000 T 


007050265*2 


c 




01436000 T 


0070*0265*2 


V 




01437000 T 


0070 5 026512 


- — 




01438000 T 


007050265:3 


f 




01439000 T 


00705027352 


^ 




01440000 T 


0070 5 0278 5 


— . 




01441000 T 


00705028352 


c 




01442000 T 


O07O5028753 


v. 




01443000 T 


0070 5 0295 5 2 




S105* 


01444000 P 


00705029752 


c 




01445000 T 


00705030050 






01446000 T 


0070 5 0300 51 






01447000 T 


O07O5031552 


c 




01448000 T 


00705032850 






01449000 T 


0070 5 0330 5 1 " 






01450000 T 


OO7O5033251 


r 




01451000 T 


00705033752 






01452000 T 


0070 5 0337 52 






01453000 T 


007050341*3 


r 


! 


01454000 T 


0070*0341'3 






01454100 T 


0070 5 0344 5 f" ~" 






01455000 T 


00705034850 


c 




01456000 T 


00705035353 


^ 




01457000 T 


00705035450 " 


- 




01457100 T 


0070S035752 


C 




01457110 T 


00705035752 




01457120 T 


0070 5 0358 5 1 - 


■ 




01457130 T 


007050359S3 


c 




01457140 T 


00705036152 




01457150 T 


0070 5 0362 5 0~ 







01458000 T 


00705036353 


c 




01459000 T 


00701036552 




01463000 T 


O07O5 0365 5 2 


_ 


X104- 


01465100 P 


00705036650 


c 


S104- 


01465200 C 


OO7O5036651 


35104- 


01465300 C 


00705037850 


— - * 


S104- 


01465400 C 


00705038650 


[ 


X104* 


01465500 C 


00705039050 


*s_ 


SS104-" 


01465600 C 


0070*0392 5 1 


, 


?104» 


01465700 C 


00705039752 


C 


Sl04* 


01465800 C 


00705039752 


*104"» 


01465900 C 


00705039850 







01466000 p 


0070504025 1 




5K104- 


01466100 C 


00705040752 


V— ■ ' 


8104- 


01466200 C 


0070*0410 81 




35104- 


01466300 C 


00705041152 


c 


2104- 


01466400 C 


00705041481 


£104- 


01466500 C 


0070504158 3 ■ - 





X104- 


01466600 C 


00708041553 


1 


2S104- 


01466700 C 


00705041553 


*W 


3J104* 


01467600 C 


00708041850 


, — „ 



r 



^ 



v^ 



O' IF" rONTROLDESC(I»X) AND X,[2*4J * AND (X.CF ' OR 2104- 01467700 C 0070*0418*1 

IsFUNNYMSCW) THEN JK104* 01467800 C 00701042211 

F0RMATMSCWCLINE[*]» X,[6*93» X. C 16$ 13 , X, [17*13* X104- 01467900 C 0070*0424*0 

O H) 2104- 01468000 P 0070*0427*3 

el »Sf X 1 04- 01468100 C 0070*0427*3 

IF DESCRIPT0R(I,X,Y) AND Y LEO w 50" THEN 2104- 01468200 C 0070*0428*0 

O F0RMATDESC(LINEt*3» Y, [41113* X, [8*103* X,CF* X,FF» IF X,FF « I 01468300 C 0070*0430*1 

THEN 1 ELSE IF X.FF * THEN IF DESCRIPTORC X, FF»H. Y) AND (Y = 01468400 C 0070*0435*3 

«40» OR CY = "50" AND H.CF = X.CF)) THEN 2 ELSE ELSE 0) 01468450 c 0070*0441*2 

O elS E 2104- 01468500 c 0070*0447*2 

IF 0PERANDCI»X) AND X 5« THEN 5K104- 01468600 C 0070*0447*3 

BEGIN 2104- 01468700 C 0070*0450*0 

O IF X, [3*63 / THEN 2104- 01468800 c 0070*0450*1 r 

W RITE(ALINE[*J, <R20,i0>» X) X 1 04- 01468900 C 0070*0451*3 

_ - 72 IS 4 LONG* NEXT SEG 70 

: ;0 E K, E 2104- 01469000 P 0070*0461*2 f 

WrITE(ALINE[*3i <I15>* X); X104- 01469100 C 0070*0461*2 

„ „ „ , , mr , v 73 IS 4 LONG* NEXT SEG 70 

;Q F0RMAT0PCLINE[*3» X, ALINE[*3)J 2104- 01469200 C 0070*0470*0 f 

\ ._.. Z HD 2104- 01469300 C 0070*0472*0 

i ELS E 2104- 01469400 C 0070*0472*0 

O IE DESCRIPT0RCI»X»Y) AND BCY, [40*13) AND BCY,[45U3) THEN2104- 01469500 C 0070*0472*0 

BEGIN 2104- 01469600 C 0070*0475*3 

IF BCY, [41*13) THFN % PRESENT PROGRAM DESC, 2104- 01469700 C 0070*04/6*0 

O IE NOT WITHlNcODESEGMENT(X»CF,SEGiADR#0»ALINE[*3) THEN 01469800 C 0070*0477*2 f 

ALINE[03 »s REAL(N0T FALSE)* 2104* 01469900 C 0070*0480*1 

F0RMATPR0GDESC(LINE[*3*Y,[46*23»Y,[41?13*ALINE[*3)* 2104- 01470000 P 0070*0482*1 

O END? 2104- 01470100 C 0070*0485*3 f 

WRITE(P»17»LINE[*3)J 2104- 01470200 C 0070*0485*3 

END* 01509000 T 0070*0489*3 

O ERR0WT* 01510000 T 0070*0492*0 

END DUMPING A STACK; 01511000 T 0070*0492*0 

70 IS 499 LONG* NEXT SEG 10 

O INTfGER PROCEDURE SPREAD( AT ,F»C ) I 01512000 T 0010*0266*1 

VALUE AT* 01513000 T 0010*0266*1 

INTEGER AT,F»C* 01514000 T 0010*0266*1 

O BEGTN 01515000 T 00l0*0?66*l 

SpREAD* a CHRS(M[AT ( R0W,AT,C0L3»O*3)* 01516000 T 0010*0266*1 

C*=(F*=CHRS(M[AT,RoW»AT,COL3»3»5)),CF; 01517000 T 0010*0271*2 

Q F*aF,FFj 01518000 T 0010*0277*2 

END SPREADI 01519000 T 0010*0278*1 

PROCEDURE DUMPROGRAMSJ 1 01520000 T 0010*0280*0 

O BEGIN 01521000 T 0010*0280*0 r 

INTEGER MiX»TYP»PRTH*PRTF*H*F»C*FPB»SD*AIT.SJ 01522000 T 0010*0280*0 

start of Segment ********** 74 

O INTFGER L* ALPHA STARBLANK* 01523000 T 0074*0000*0 £ 

INTEGER AJ 01524000 T 0074*0000*0 

REAL JAROOJ 01525000 T 0074*0000*0 

O REAl, STARS»JAROJ 2103- 01526000 P 0074*0000*0 C 

FORMAT HD(A5» M = '% A6» 2(X 1 , A5) # X2, Al * Xl >*A6) » 01527000 T 0074*0000*0 

START OF SEGMENT ********** 75 

O HlCX8.»PR0GRAMl tt .X8*»/»,X7, M * MIX b w .I2)I 01528000 T 0075*0000*0 C 

■ - - - D B nl , 75 IS 26 LONG* NEXT SEG 74 

integer pc0l»siz»ro,cl»rp? 01529000 t 0074*0000*0 " " ' 

o r eal segs»sgm? 01530000 t 0074:0000*0 c 

Real seg*adR* 01531000 t 0074*0000*0 "■" 

ARRAY LSTDrO»3]J 01532000 T 0074*0000*0 

O 



v_ 



L. 



c 



r 



O 



u 



o 



:o 



: '0 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



FORMAT SEGH(X8»»PRe:SEnT PROGRAM SEGMENTS'*// 

"SEGMENT SIZE AT THRU"//), 
BADSIZE(8C"*"), H INVALID SEGMENT DICTIONARY SIZE »,8("*»)), 
BADSDESCCBC"*")," BAD SEGMENT DICTIONARY DESCRIPTOR "»8("*")). 
SEGMENT(X3»2CA4»XD,2(Xlf A5 ) » X2 » A3, A 1 ) » 

PD(A5, ,f - M »A6»Xl»2(A5*Xl),", R+»,A4,»» + "'»A4)J 

STARS*= m ****»J STARS, t6ll8]|«sSTARS,[24HB]| 

IF DESCRlPTOR(JAR»JARO#TYP) AND TYP="50" THEN 

JARO»sJARO,CFI 

IF CPRTOK»=PDATADESC(PRT»PRTO)) THEN 

PRTH»sSpREAD(PRT,PRTF,PRTO); 

IF PRTO>0 THEN 

FOR MI X*=i STEP 1 UNTIL MIXMAX DO 

IF ONEMlXsO OR ONEMlXsMiX THEN 

if pdatadesccprto+mix,B) then 

BEGIN 

nextpage* 

writeclinee*j»h1»mix); 

IF 

IF JAROsO THEN fALSe 

ELSE 

DESCRlPTORf JAR0+MIX,JAR00,TYP) AND TYP = »»50» 

AND f JAR00«.JAR00,CF) qTR THEN 

BEGIN 

M0VC(M[(AUjAR00).R0W»A,C0L]#li 
LINEC23»1»0»7)I 

MOVCCMt(A»aA+l),ROW,A,COL]»l, 
LINEC33»1»0»7)J 
END 
ELSE 
BEGIN 

MOVCCSTARS, ltLINEt2j#l»0#7)j 

M0VC(STARS,liLINEt3]»l#0#7)| 

END) 

WRITE(P[DBL]#15»LINEC*])? 

NEXTITEM? 

WR1TE(P,HD» 

OCTAL(PRT), 

OCTAL(PRTH),OcTAL(PRTF)tOCTAL(PRTO)* M "» 

2» W PRT[*»%"*3 »• 

OCTALCPRTO+MIX), 

OCTAL(SPREAD(PRTO+MiX,F#R)),OCTAL(F),OCTAL(R)t 

IF r~0 THEN » » ELSE **"$ 

3,»PRTCMI ,, ,»'X 1 |*3 I » f «CF = R », 

OCTALCR+3), 

OCTALCH»=S P READ(R+3,F,FPB)).OCTAL(F)»OCTALCFPB), 

IF 0CTALCH.C30»63)5 M 50 , » THEN » " ELSE "*"i 

2»"R + 3» F",«»PB "# 

OCTALCR+4), 

0CTALCH»«5PREaDCR+4»F»SD))»OCTALCF)#0CTALCSD)» 



START 



76 



IF 0CTAL(H,t30l63)* w 50" THEN 



M l» 



ELSE 



w * w , 



4««R+4* S","EGMFNT"#" DlCTI", M ONARY »♦# 
OCTALCR+6), 

OCTAL (H » S SPRE AD (R + 6.F, AIT)), OCT AL(F)»0C TALC AIT), 
IF BOOLEAN(H,[30U3) THEN ♦♦ » ELSE "*"» 



01533000 


T 


0074*0001 *3 


■ c 


OF SEGMENT 


nt********* ^g 




01534000 


T 


0076*0001*3 




01535000 


T 


00761000113 


c 


01536000 


T 


00761000113 




01537000 


T 


00761000153 




01538000 


T 


0076*0001*3 
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S 76 LONG, 


NEXT SEG 74 




01539000 
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0074 J 0001! 3 




01540000 


T 


0074*0004*1 
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01541000 


T 


0074*0007*2 




01542000 
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00741000912 




01543000 
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0074?00l0»l 
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01544000 
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0074*0013*2 




01545000 
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0074? 00 14"? 6 




01545100 


T 


0074»Q0l7l2 


c 


01546000 
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0074*0018*1 




01550000 
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0074*0020*1 




01551000 
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0074*0021*2 


c 


01552000 


T 


0074*0025*2 




01553000 


T 


0074*0034*0 


" 


01554000 
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007410034*0 


c 


01555000 


T 


0074*0035*3 




01556000 
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0074*0036*0 




01557000 


T 


0074*0038*0 


c 


01558000 


T 


0074*0041*2 




01559000 


T 


0074*0041*3 




01560000 


T 


0074*0044* 1 


c 


01561000 


T 


0074*0046S0 


v«— » 


01562000 


T 


0074*0050*0 




01563000 


T 


0074*0051*3 


c 


01564000 


T 


0074*0051*3 




01565000 


T 


0074*0051*3 "" 




01566000 


T 


0074*0052*0 


"s— > 


01567000 


T 


007410054*0 




01568000 


T 


0074*0056*1 




01569000 


T 


. 0074*0056*1 


c 


01570000 


T 


0074*0060*1 




01571000 


T 


0074*0061*2 




01572000 


T 


0074*0063*3 


o 


01573000 


T 


0074*0068*0 


01574000 


T 


0074*0077*3 


- _ 


01575000 


T 


0074*0066*0 


o 


01576000 


T 


0074*0089*2 


01577000 


T 


0074*0098*0 




01578000 


T 


0074*0102*0 


o 


01579000 


T 


0074*0H3»2 


01580000 


T 


0074*0116*0 


. . _. 


01581000 


T 


0074*0125*3 





01582000 


T 


0074*0130* 1 


01583000 


T 


0074*0139*2 """" 




01584000 


T 


0074*0142*0 


o 


01585000 


T 


0074*0151*3 




01586000 


T 


0074*0156*1 




01587000 


T 


0074*0171*2 


o 


01588000 


T 


0074*0174*0 


*•— ' 


01589000 
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0074*0163*3 
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THE"," 



STACK"); 
GTR 1024 



IF 



2*"R+6» A", "IT "» 

0CTAL(R+7)» 

0CTAL(HJ=>5pREADcR + 7,F»C)).0CTALCF)»0CTAb(C)» 

IF H V C30I23"3 AND F<R AND C=0 THEN " " ELSE "*", 

7»"R+7, L'V'AST MS","CW FOR"*" WHICH"*" MSFF "» 

"WAS FA","LSE "p 
0CTALCR+8), 

0CTaL(H^SPREaD(R + 8,F#C))*0cTaLCF)»0CTAU(C)# 

" "# 

2»"R+lO. ","INCW % 

0CTAL(R+9) f 

0CTAL(HI»SPREADfR+9,F#C)).0CTALCF)»0CTAL(C)» 

IF H=0 AND F=0 THEN " " ELSE "*"» 

9."R+H» "f"LiTERA"»»L FOR ",«LAST C"#"0MMUNI"» 

"CATE OR"," PROGR","AM REL">"EASE % 
0CTAL(R+10)# 

OCTAL(HJ'=SpREAD(R + 10tS»C))#0CTAU(S)»OCTAU(C)# 
IF 0CTAL(H,C30»6]}-"50 , » AND 0<S AND S<R AND R«C 
THEN « " ELSE "*"» 
5»«R+12t "»"FF = B","OTTOM ","0F 
IF C0NTR0LDESC(R+8.H) AND C LOc I RCW 8=H , CF ) 
AND H,FF GTR 1024 ThEN ELSE LOC iRCW 8 =-l « 
NEXTITEM) 

PR0GStPR0WS|s0,255 3«=PC0L»s-l> 
IF DEScRIPToR(R+4«So,TYp) AND TYPs"50" THEN 
IF OPERAND(SD|bSD,CF»SEgS) AND SEGS f [l J373=0 THEN 
BEGIN 

WRITE(P#SEGH)I 

FOR SEGlsl STEP 1 UNTIL SEGS DO 

IF OPERAND(SD+SeG»SgM) AND 

(ADR«=SGM f FF)>1023 THEN 
BEGIN 

SlZSs 
(0PERAND(ADR"1»SIZ) and 

SiZ,CF«SEG) OR 

(0PERAND(ADR-1,SIZ) and 

0PERAND(ADR"2fH) AND 

H.C3I61P7 AND 

SlZ,c8!lO]«SGM,CF) THEN 

SIZ.FF ELSE.Oj 
IF BOOUEAN(SGM,[2U3) THEN 
BEGIN 

li-sgm,cf; 

STARBLANKIs"*"; 

for i * =0 step i until jntspmax do 

IF INTSp[i],[8llO]sL THEN 
BEGIN 

IF L"17 THEN SiZJe^l 

STaRBlAnKU« »j 

II=INTSpMAX+2J 
END? 
WRlTE(LlNEt*3»SEGMENT»0CTAL(SEG)»0CTAU(SlZ)» 

0CTAL(ADR)»IF SIZsO THEN STARS ELSE 

0CTAL(ADR*SIZ-1)«0CTAL(L)»STARBLANK)I 
IF L LEQ INTMAX THEN 

MOVE(lNAMSriNAMErL].CF3»LlNEt4),lNAMECL],FF)| 
WRITE(P,7,LINE[*])J 



01590000 

01591000 

01592000 

01593000 

01594000 

01595000 

01596000 

01597000 

01598000 

01599000 

01600000 

01601000 

01602000 

01603000 

01604000 

01605000 

01606000 

01607000 

01608000 

01609000 

01609100 

01609200 

01610000 

0161 1000 

01612000 

01613000 

01614000 

01615000 

01616000 

01617000 

01618000 

01619000 

01620000 

01621000 

01623000 

01624000 

01625000 

01626000 

01627000 

01628000 

01629000 

01630000 

01631000 

01632000 

01633000 

01634000 

01635000 

01635100 

01636000 

01637000 

01638000 

01639000 

01640000 

01641000 

01642000 

01643000 

01644000 



T OO745018783 

T 0074501965Q 

T 007410199*2 

T 00745020881 

T 0074*02151 2 

T 00745023280 

T 0074J0238SQ 

T 00748024182 

T 00748025081 

T 00748025281 

T 00741026182 

T 00748026480" 

T 00748027383 

T 00748027881 

T 007480296J0 

T 00748030880 

T 00748031182 

T 0074 8 03208 1" 

T 00748032582 

T 00748032881 

T 00748035680 

T 00748035982 

T 00748036582 

T 00748036583 

T 00748036881 

T 00748037183 

T 00748037680 

T 00748037681 

T 00748037983 

T 00748038182 

T 00748038281 

T 00748038481 

T 00748038582 

T 00748038582 

T 00748038681 

T 00748038880 

T 00748038983 

T 00748039182 

T 00748039281 

T 00741039582 

T 00748039783 

T OO748039880 

T OO748039881 

T 00748040080 

T 0074804008 1 

T 00748040280 

T 00745040383 

T 00748040480 

T 00748040650 

T 00748040681 

7 OO748O4O880 

T 00748041080 

T 00748042081 

T 00748042553 

T 00745043552 

T 00745043680 

T 0074 ? 0440 8 
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c 



c 



c 
c 
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o 
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V 



O i 

o 
o 
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': 
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■■O 

rj 

o 
o 
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o 
o 
o 
o 
o 



o 



END 



o 
o 

o 



ELSE 
BEGIN 

IF CPC0L»SPC0L-H)*255 THEN 
BEGIN 

PROgSC PROWS. 255] 8*254; 

PROWSJspROWS+ll 

PC0L!»0) 

end; 

PROGSfPROWS#PcOL]js 
ADR& 

CIF SIZsO THEN ELSE ADR + SI Z-l ) [ 18 t 33 8 153& 
SpGc8»38tl03; 

END) 

end; 

IF <PROGS[PROWS»255]»*PCQL>>0 THEN 
BEGIN 

FOR R0|=;0 STEP I UNTIL PROWS DO 

SEQUENCE ( PROGS CRO,*], PROGS [RO, 255]) J 

segsuprows + i; 

FOR I*=0 sTfP 1 UNTIL PROWS DO 
BEGIN 

SEgS« s SeGS+pR0GS[i, 2 55]; 

LSTDtlllsOl 

end; 

FOR SEGJ*! STEP 1 UNTIL SEGS DO 
BEGIN 

R08*0j 

IF PR0WS>0 THEN 

FOR I|«l STEP 1 UNTIL PROWS DO 

IF LSTD[R0]?255 OR 
(LSTDCI]<255 aNd 

PROgSI I ,LSTD[ I ]],CF<PR0GS[ R0.LSTDCR0n.CF> 

then 

WRlTE(P. SEGMENT. 

OCTAL((SGMIaPR06StR0»LSTDCRO3]),t8ilO]), 
IF SGM.F.FsO THEN STARS ELSE 
0cTAL(SgM,FF-SGM,CF+1). 
0CTAL(SGM,CF).IF sgm,ff=o then 
STARS ELSE O'CTALCSGM.FF) > I 
LSTDCRO]»=LSTDCRO]+i; 

end; 
end; 



END 



ELSE WRlTEfPCDBLJ.BADSlZE) ELSE WRI TEC P[ DBL3 .BADSDESC ) J 
IF (AlTSsMiXSTKCMiXj) ■ THEN 
STAX[0]5= 

(R»l)& 
(S"1)[18I33H5]& 
1C7U7I1] ELSE 
BEGIN 

IF STAXCAIT1,FF B THEN ST AX £ A IT] , FF5 »S- 1 ; 

MlXSTK£MlX]?a0; 

end; 
dumpstacK(ait); 

IF ONEMIX NEQ AND ONeMIx = MIX THEN Ml X 8 pMJ XMAX+1 ; % XIT 



01645000 
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0074S044450 
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00741044480 




01647000 
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00748044480 




01648000 
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00748044481 
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01649000 
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0074804468 1 


^. 


01650000 


T 


00748044782 
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00748044982 
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01652000 
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O0748O45080 


^•H 


01653000 
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0074 8 0451' 2 
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007480451*2 
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01655000 
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007480452*0 
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007480452*1 


- - 


01657000 


T 


00741045680 
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01658000 


T 


0074804578 3 
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01659000 


T 


00748045783 "" 
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00748046280 
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0074 8 0462 8 1 
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00748046410 
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01664000 
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00748046982 




01665000 
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007480470:0 




01666000 
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0074*047182 
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01667000 
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0074J047152 




01668000 


T 


0074*0473*2 




01669000 


T 


0074*0474*1 
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01670000 


T 


0074*047681 




01671000 


T 


"0074*0478 8 




01672000 


T 


0074*047880 


c 


01673000 


T 


00748047881 


01674000 


T 


00745047983 


- ■- ■ 


01675000 


T 


00748048182 


c 


01676000 


T 


00748048280 


01677000 


T 


00748048382 


— 


01678000 


T 


0074*0486*0 


c 


01679000 


T 


0074*048753 


01680000 


T 


00745049182 


— 


01681000 


T 


00748049383 


r 


01682000 


T 


00748049982 


V -w 


01683000 


T ' 


0074505035 3 


- 


01684000 


T 


00748050782 


r 


01684100 


T 


00748051280 




01685000 


T 


OO748051880 




01686000 


T 


00745052050 


C 


01687000 


T 


00745052251 


01688000 


T 


007450522*1 




01689000 


T 


00748052281 


c 


01690000 


T 


0074*05?9!3 




01691000 


T 


007450531*2 


'" 


01692000 
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007450532*0 
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01693000 
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007450532*1 




01694000 


T 


007450533*3 " 




01694100 


T 


007450535S2 
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01695000 


T 


007450535*3 




01695100 


T 


00745054051 





01695200 
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O0745O54153 


r^ 


01696000 
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007450541*3 


\^ 


01697000 
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0074*054251 
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END 



ENDJ 

if prtok then 

FOR MlX|sl STEP 1 UNTlL MIXMAX PO 

IFfAITIsMlXSTKCMIX]) NEQ THEN STAX[ A I T 3 » f 7 I 1 3 1 = 0; 
COMMENT THE ABOVE WILL CAUSE ANY STACKS ASLEEP* ASSOCIATED 
A MIX INDEX* BUT NOT DUMPED IN THIS PR0CEDURE»T0 BE DUMPED 
LATER AS CONTROL STATE STATES, i 
DUMPING NORMAL STATE PROGRAM INFO? 



PROCEDURE DUMPCONTROLSTACkS? 
BEGIN 

FORMAT H(X8»"C0NTROL STaTE STACKS"); 



IF 

F0 

BEG 



NEX 
END 
IF 
BEG 



E 

IF MA 

FOR I 

BEGIN 

DUM 

IF 

end; 

IF NO 
IF MY 



REAL V* 

INTEGE 

NEXTPAG 

WRITECP 

STAXC0 

DUMPSTA 

NEXTPAG 

1»=-1J 

IF DESC 

IF (Vis 

IJ=A+V 

BEDSTK 

R INX|«1 

IF BOOL 

TN 

RJbSTA 
IF R G 
BEGIN 
S 

N 

D 

I 

END SP 

DUMPST 

TPAGE! 

OF DUMP 
T GTR 

TN 

STAX[0 
NEXTlT 
DISPLA 
DUMPST 

NEXTPAGE 

NDJ 

XSTK GTR 

nx»=beds 



r*a; 

R INX#U 
E> 

cdbl]»h); 

]»*127&64C18I33I153I 

ckco); 

E» 



RIPTORCIS 
A.C8H03) 

-1? 

GTR THE 

STEP 1 U 
EANCSTAXC 

XIINX3,CF 
TR A AND 
% ISTACK 
TAXfiNX], 

extjtem; 

iSPUAYflS 
JaOlX SO 
ECIAL 1ST 
ACK(INX)| 

ING BEDDE 
THEN % IS 

3IBI&AC18 

em; 

YUSTACK, 

ACK(O); 

} 

BEDSTK T 
TK+1 STEP 



TACK»A*R) AND Rs M 50« THEN 
>0 AND CAUA,CF)>0 THEN 

N 

NTIL BEDSTK DO 

INX3,[7j13) THEN ELSE 

J 

R LEQ I THEN 

ASLEEP 

FFIbA; 

TACK«TRUE>* 

DONT DUMP ISTACK TWICE 

ACK stuff; 



D CONTROL STATE STACKS ; 
TACK AWaKE 

I33U53; 

TRUE); 



HEN XMORE C,S, STACKS TO DP 
1 UNTIL MAXSTK DO 



PSTACK(INX); 

T NX LSS MAXSTK TrEN NEXTpAGE; 

T MYSTACKDUMPED THEN 
STACKADR GTR THEN 



01698000 T 

01698100 T 

01698200" T 

01698300 T 

WITH 01698400 T 

01698500 T 

01698600 T 

01699000 T 
74 IS 572 LONG*' 

01700000 T 

01701000 T 

01702000 T 

START OF SEGMENT ** 

START OF SEGMENT ** 
78 IS 8 LONG* 

01703000 T 

01704000 T 

01705000 T 

01706000 T 

01707000 T 

01708000 T 

01709000 T 

01710000 T 

01711000 T 

01712000 T 

01713000 T 

01714000 T 

01715000 T 

01716000 T 

01717000 T 

01718000 T 

01719000 T 

01720000 T 

01721000 T 

01722000 T 

01723000 T 

01724000 T 

01725000 T 

01726000 T 

01727000 T 

01728000 T 

01729000 T 

01730000 T 

01731000 T 

01732000 T 

01733000 T 

01734000 T 

01735000 T 

01736000 T 

01737000 T 

01738000 T 

01739000 T 

01740000 T 

01741000 T 

01742000 T 

01742100 T 

01742110 T 



0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 

NEXT 
0010 
0010 
0010 

***** 

***** 
NEXT 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 
0077 



1054610 

«0548!0 

1054912 

?0551«2 

J0557J3 

* 0557* 3 

*0557» 3 

8055783 

SEG 10 

8028080 

8028080 

8026080 



*** 

*** 

SEG" 

80000 

80000 

80000 

J0004 

80007 

80008 

J0009 

10013 

10014 

80017 

80021 

8 0023 

80024 

80026 

80027 

80028 

80029 

80031 

80031 

80033 

80034 

80035 

80036 

80036 

8 0037 

80041 

80043 

80044 

10044 

80046 

80047 

80048 

80049 

80053 

80053 

8 0054 

80058 

80058 

80059 

80064 

8006582 

8006583 



7 7 

76 

77 









2 

1 

3 

3 

1 

2 

2 

3 





3 



3 

2 

3 

3 



3 

1 

1 

2 

2 

3 - 



1 

1 

2 

1 

2 

2 

2 

o 

1 
1 
3 
1 



r 



r 



c 
c 

c 
c 
c 
c 
c 

f 






c 

c 
c 



c 

c 
c 

c 



w 



o 
o 
o 
o 

■'O 

iio 

;: P 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



BEGIN % SPECIAL DUMP OF USER SELECTED "STACK" AREA 
STAXtOl I*=mYSTACKADR & M AX ( 0» MYST ACK ADR + 1 - 

UF MYSTACKSIZE NEQ THEN MYSTACKSIZE ELSE 200)} CTF & 

MUxmi U; 

DUMpSTACK(O); 
MYSTACKDUMPEDtsTRUE? 

end; 
end dumping control state stacks; 

DEFtNF MAXM F SSAGES?lOO#; 

STREAM PROCEDURE MOVD(S,D#W); 

VALUE w; 
BEGIN 

LABEL EXIT? 

SIUSJ DH-DI 

W(8(IF SC*"*" 

SprSl-l; DIIbdI-11 

EXIT » DS»sCHR; 
FNd MOVqJ 
PROCEDURE PRINTQUEUE(PROC.CODE)! 

INTEGER PRoC,CODE* 
BEGIN 

BOOLEAN B; 



77 IS 



THEN JUMP OUT 2 TO EXIT! DS5=CHR))5 



VALUE PROC#CODEJ 



INTEGER CI 
REAL A»R#S»T»J»USERCoDEJ 
FORMAT Q1(A5»" = " * 2(0» X 1 ) 1 1 2» "/". I 

« « - . f ft* __ .« _ * e\ ....*. * *s •■ , *• 



2#X89). 



>2(A5»" * »f2(0»Xl)»I2# , V M tl2»Xlt"USER !!,, »Al»A6»X76) 
»Q3(A5»X3»2(2(0#X1)»X1)»X2#X72) 
J 



CTCJ 



nextitemi 

CfBCODE.FFJ 

C0DE$ S S CODE 

IF CODE-1 THEN 

BEGIN 

DISPLAYCMJXMASK, FALSE); 

DISPLaY(INfOM A SK1»FaLSE)I 

DISPLaY(INfOMaSK2#FaLSE); 

displaycccmaski, false); 
displaycccmask2, false)! 
end; 

DlSPLAYfPROC, FALSE)? 
!»«0I 
IF OPERAND(pROC»A) AND A,[9|9)»511 



START OF 



START OF 



80 IS 



THEN 



AND (RjsA.CF) NEQ PROC 



DO 



M0VD(MffR+1 



BEGIN 

IF NOT OPERAND(R»A) THEN It sMAXMESSAGE5+l ELSE 
CASE CODE OF 
BEGIN 

BEGIN % OCF.G. STATIONMESSAGEHOLDER) 
WRlTE(LlNEt*3»Ql» OCTAL (R ) » OCT AL( H I HALFCR ) ) * 
0cTALCL0HALF(R))»A.t9U]f A.I14U]); 
+ O.ROW»CR + 1 +C).C0L3iUlNE[a]. 

MlN(H»MAXCOR-n))» 
WRlTE(P»l5,LiNE[*]); 



01742120 


T 


007710067 


12 


r 


01742130 


T 


007710067 


3 




01742140 


T 


0077 5 0069 


13 




01742150 


T 


007710074 


10 


c 


01742160 


T 


0077»0075 


13 




01742165 


T 


0077? 0076 


10 




01742170 


T 


007750077 


12 


r 


01743000 


T 


007710077 


12 




81 LONG* 


NEXT SEG 


10 




01747000 


T 


001010280 


10 


C 


01750000 


T 


001050280 


10 




01751000 


T 


001010280 


to 




01752000 


T 


001010280 


10 


c 


01753000 


T 


001050281 


12 




01754000 


T 


001050281 


12 




01755000 


T 


001050281 


13 


c 


01756000 


T 


0010*0284 


1 


^— 


01757000 


T 


001050285 


12 




01757100 


T 


001050286 





c 


01757300 


T 


001050286 


1 




01757310 


T 


001050286 


r 




01757320 


T 


001050286 


i 


r 


01757330 


T 


001050286) 


i 




SEGMENT 


**********' 


79 




01757332 


T 


007950000 





v__ 


01757335 


T 


007950000 







01757340 


T 


0079)0000) 







SEGMENT 


********** 


80 


c 


01757350 


T 


008050000 







01757352 


T 


OO8O5000OI 


o " 




01757355 


T 


008050000! 





c 


44 LONG* 


NEXT SEG 


79 




01757400 


T 


OO79500OOI 







01757410 


T 


007910000! 


1 


<- 


01757415 


T 


007950001) 


3 




01757420 


T 


0079500031 


2 




01757425 


T 


0079500031 


3 


c 


01757434 


T 


007950004! 







01757436 


T 


0079500051 


3""' 




01757440 


T 


0079500071 


2 


c 


01757450 


T 


007950008! 


'1 


01757455 


T 


0079500101 





. . _ .. . . 


01757460 


T 


0079500H 1 


3 


c 


01757470 


T 


0079500111 


3 




01757500 


T 


0079?00l3< 


2 "" 


. .. ,. __ ._ . 


01757505 


T 


0079500131 


3 


( 


01757510 


T 


0079*0017! 


3 


V— 


01757520 


T 


007950018! 







01757530 


T 


0079500191 


2 


c 


01757550 


T 


0079500221 





^— r 


01757560 


T 


0079500221 


1 




01757570 


T 


0079500231 


2 


r 


01757580 


T 


0079500231 


2 




01757590 


T 


0079J0034I 







01757600 


T 


0079500451 


2 


c 


01757610 


T 


0079500501 







01757620 


T 


0079500531 


3 





1 I 



o 

-■ o 
' o 

jo 
■So 

r i 
o 

••o 
o 
o 
o 
o 



o 



o 

o 
o 
o 
o 
o 

o 



end; % o 

BEGIN % KLOOKQ) 

Bi*OPERAND(R+i.USERCODE)J 

WRlTE(LlNEt*]tQ2,0CTAL(R),0CTAUCHIHALF(R))f 
0cTALCL0HALF(R))»A,[9l4JtA,tl4l4]. 
IF B ThEN USeRC00E.C6:6] eUSe " »» 
IF B ThEN USERC0DE.U2S36J else " »)> 

WRiTe(P,15.LtNE[*J)> 

PRlNT(R+REAL(B),R+9); 

end; * l 

BEGIN % 2CE.G, DC19Q) 

WRITECLINE[*]»Q1,0CTAU(R).0CTAI,(HIHALFCR>). 

0CTAL(L0HALF(R))»A,C9I43»A,I14I43)> 
WRlTECPt 15»LINEC*3); 

PRINT(R+l»R+5)5 

IF 0PERAND(R+1*S) ANDCSJsS.CF) NEQ R + l THEN 

DO BEGIN 

WRlTE(LlNEt*]»Q3,0CTALCS),0CTAL(HIHAUF(S))» 
OcTAL(UOHALF(S))tOCTALCHIHAUF(S*D), 
OcTAL(tOHALF(S+l)))J 
IF 0PfRaNDCS+1»T) AND T.CF NFQ S+l THEN 
M0VDCMC(S + 2),R0WkS + 2).C0L3»LINEC6]. 

MlNf9#MAXC0R"9))J 
WRITE(P,15»LINEC*]); 
END UNTIL NOT OPERAND(S»T) OR 
(SI=T«CF)=R+i OR 
CJJ-J+1) GTR MAXMESSAGES; J5?0; 
ENDJ % 2 

end case; 



END UNTIL 11=1+1 rTR MAXMESSAGES OR 

(R»=A,CF>aPR0C OR <A, [9543=0); 

END PRINTQUEUE; 

PROCEDURE DUMPMCPINFO; 
BEGIN 

REAL RfA»N.L»TA#TS»MA»Ms«LA»LS#RAiRS#PA»PSJ 

INTEGER TYP»S,C; 
BOOLEAN TINUOK; 

BOOLEAN COMSAVE; 

FORMAT 5E(A3»» • ", 2( 0, XI ) » X24 , "{ «, 0, XI »0.» )») , 

NULl.MESSAGES("### NO SPO MESSAGES QUEUED"). 

NUL|,SLATE( W ### NO I NDEPENDENT-RUNNERS TO BE INITIATED"), 

NOMEMXK #"T0GLE.C15I6] ,, *X2» M = »,A2»"# NOMEM"), 
TFXI(XB» M BIT «#I2,'» = Mii», "»X2B)t 
TFCX8 f "BIT M »I2," s ",U,», ",*A6/)1 

BOOLEAN STREAM PROCEDURE BIT0NCW»B)5 

VALUE B? 
BEGIN 

SiJrWJ SKIP b sb; 

if sb then tally»=i; 
bitoni=tally; 
end; 



01757630 
01757700 
01757710 
01757720 
01757730 
01757740 
01757750 
01757760 
01757770 
01757780 
01757800 
01757810 
01757820 
01757830 
01757840 
01757845 
01757850 
01757855 
01757860 
01757865 
01757870 
01757875 
01757880 
01757885 
01757890 
01757895 
01757897 
01757900 
01757920 
START Of SFGMeNT 

81 IS 4 LONGf 
01757950 T 
01757960 T 
01757980 T 

79 IS 192 LONG, 



01758000 
01758100 
01758200 

START OF SEGMENT 
01758300 
01758400 
01758500 
01759000 

START OF SEGMENT 
01760000 
01761000 
01762000 
01763000 
01764000 
83 IS 64 LONG 



T 00795005713 

T 00795005850 

T 00795005850" 

T 00795006050 

T 0079?0071»2 

T 00795007952 

T 00795008352 

T 00795009152 

T 0079J009553 

T 00795009953 

T 00795010050 

T 00795010050 

T 0079501H52 

T 00795012250 

T 00795012651 

T 00795013051 

T 00795013451 

T 00795013650 

T 00795014650 

T 00795015251 

T 00795015952 

T 00795016251 

T 00795016752 
T 00795017051 

T 00795017451 
T 00795017650 
T 00795017851" 
T 00795018153 
T OO795O18250 
********** 81 

NEXT SEG 79 
00795018251 
00795018451 
00795018851 
NEXT SEG 10 
T 001Q502865 1 
T 00105026651 
T 0010S028651 
********** Q2 

T OO8250OOO5O 
T 00825000050 
T 00825000050 
T 00825000050 
********** 83 



01765000 
01766000 
01767000 
01768000 
01769000 
01770000 
01771000 



T 00835000050 

T 00835000050 

T 00835000050 

T 00835000050 

T 00835000050 

NEXT SEG 82 

T 00825000050 

T 00825000050 

T 00825000050 

T O0825000O5Q 

T 00825000051 

T 00825000153 

T 0082 5 00015 3 



r 






>s. 

c 
c 



r 

Is- 



c 



'_ 



c 
c 
c 
c 
o 
o 
o 



^J 



o 
o 
o 
o 

'O 
iO 

jo 

O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



ARRAY TB[08j433J 

REAL UA,US»IA»IS#FA#FS> 
FORMAT LUN(A3)» 



LQUEHDR( 
BADLQUEN 

BADUQUEf 
FLQUE(A2 
NULLQUEf 

FTCAitX 

RT(A3tX 

PT(A1#X 

I0ATHCX 

X8* W TIN 

X12 

X12 

XJ2 

X12 

X12 

X12 

X12 

X12 

X8i 

X12 

X12 

X12 

X12 

X12 

X8» 

X12 

X12 

XI? 

XJ2 

X12 



"1 

M 

"2 
n 

"3 
it 

RDC 
»« 

"1 
"2 
"3 

«4 

PRN 
w 

"1 

»♦ 

"2 
"3 



"EL"* 
TRYCA 
'•## T 
,X6,A 

»### 

1» A2t 
liA2» 
1»A1» 
8»"FI 
U"/ 
CO I 33 
C 3| 5 3 
C8s 33 

cii»7 

[1886 
C 24 » 1 

[2515 
[3081 
TABLE 
[0883 
[886] 
[1481 
[2481 
[4187 
TABLE 
£081] 

[181] 

[2813 

[1581 

[3081 

6» 

X24, 

ABLE" 

ABtE" 

L£",X 

LE'V 



X2»»I0QUE"INDEX ,, # X2i M D I SK-ADDRESS") » 

2," # BAD ENTRY IS "#2(0, XI)), 

HE LQF ?S INCORRECT"), 

3,X8,A1,A6), 

NO ENTRIES IN THE LQUE")» 

Xl,Al»X 1 ,A3,Xi,A2,Xi,Al#Xi,A2,Xi,A3)» 

Xl,A4,Xi,A6,Xi,A3), 

Xl,A5»Xi»A5,Xi,A6)» 

elds of' words in the i/o assignment tabless»// 



START 



HARDWARE UNIT NUMBER"/ 



V 

V 

3 POWER Of 2"/ 

3"/ 

3 INsO, 0UT-J.V 

3"/ 

8] UNIT MNEMONIC"// 

"/ 

"/ 

MIX INDEX IF ASSIGNED"/ 
0] REFL NUMBER"/ 
73 CREATION DATE"/ 
3 CYcLp"// 
"/ 
"/ 

if write Ring present"/ 

3"/ 

5] ADDRESS OF TOP 1/0 DESCRIPTOR"/ 

83 PHYSICAL REEL NUMBER"// 



,X4, 
#X4, 
24, 



"LUN"»X( 

"tinu",: 

"MULTIT/ 

"LABELT/ 

"RDCTABl 

"PRNTARl 

X9, 

X2, M l",X4,"2",x6,w3«,X4,"4",X8 f 

X4»"l"» 
X2» M 1", 



X2*"2 ,, »X4,"3"»X6,"4"»X8, 
X7,"2"»X5,"3",X5)8 



BOOLEAN PROCEDURE VarI FY( WHAT, a* St B ) } 

VALUE WHAT,BJ 
INTEGER WHAT; 
REAL A,S; 
BOOLEAN BJ 
BFf I N 

DISPLAY(WHAT,B)J 
VARlFY8= 

DESCRlPTOR(WHAT.A.S) AND 
Ss"50'» AND 
CS8sA,[88l03)>0 AND 



84 IS 



01 
01 
01 
OF S 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
2 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



772000 
773000 
774000 
EGMENT 
774100 
774110 
774120 
774130 
774140 
775000 
776000 
777000 
778000 
779000 
780000 
781000 
782000 
783000 
784000 
785000 
786000 
787000 
788000 
789000 
790000 
791000 
792000 
793000 
794000 
795000 
796000 
797000 
798000 
799000 
800000 
801000 
802000 
803000 
804000 
805000 
806000 
807000 
808000 
809000 
810000 
65 LON 
811000 
812000 
813000 
814000 
814500 
815000 
816000 
817000 
818000 
819000 
820000 



T 0082 
T 0082 
T 0082 

******* 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 



G, NEXT 



0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 



800028 

800048 

800048 

*** 

800048 

800048 

800048 

800048 

800048 

800048 

800048 

8 000 4 8 

800048 

800048 

800048 

(00048 

800048 

8 0004 8 

80004! 

8 000 4^8 

8 0004 8 

800048 

800048 

8 00048 

100048 

800048 

800048 

800048 

800048 

800048 

800048 

$00048 

800048 

800048 

80004! 

80004? 

800048 

800048 

8 000 4 8 

800048 

800048 

800048 

800048 

800048 

8 0004$ 

SEG 

$00048 

80004 8 

800048 

$00048 

800048 

800048 

800048 

8000782 

8000782 
8000982 
8001080 



C 

c 



c 

r 

c 

, — 

c 

c 

r 

r— 

c 

r 
C 

c 
c 
c 



c 



\_. 



r 



L. 



u 

o 



(J 



o 
: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



ca:j=a,cf)>o and 

ca+s*i)<maxcor> 
end vaRify; 
define veRtfycveRifyi.vfRify2»veRify3)s 

VARfFV(VERlFYl t VrRlFY2»VERlFY3,FALSE)#l 
FORMAT T0QSHCFIELD5 OF WORDS IN THE I/O-QUEUE TABLES"// 



X8* 
*12 
Xl2 
X12 
X12 
X12 
X12 
X12 
X12 
Xi2 
X8» 
Xi2 
X12 
X12 
X12 
X12 
X12 
"LUN/ TINU 
"UN I 
"lOQ 
"10c 
"FIN 

"iNn 

X2#" 

X?»" 

IFOf A5»X2»A3 
UFO( 
WFO( 
LFOC 



UNIT" 

" [0 



"1 
"2 
"3 
"4 
"5 
"6 
"7 
"8 



[1 
[5 
[1 
tl 
tl 
CI 
[1 
£3 



LOCAT 
" [0 



"I 

M 

,♦2 

"3 

"4 



£3 
[8 
[1 
tl 
t3 



T"»X3 
UE"»X 
ATQUE 
ALQUE 
EX"#X 
1"*X2 
Xl,"6 
1"»X5 



/ 

urv 

143 

583 

3113 

4113 

5H3 

6 J 23 

8115] 

3J15] 

QUE"/ 

133 

15] 

5 4]"/ 

2*63 

8115] 

3! 153 

1» 
19, 

"»X2l» 

"iXll/ 

7* 

»"2"*X 

" t X 1 » » 

»"2"»X 



START OF 



Unit tyre"/ 
error field"/ 
unit not ready"/ 

error flag"/ 

waiting for an i/o channel"/ 

i/o in process"/ 

index of first i/o 

iNnEX of last i/o 



REQUEST"/ 
REQUEST"// 



* 5» DESCRIPTOR BITS"/ 
MIX INDEX"/ 

LOGICAL UNIT NUMBER"/ 
INDEX OF NEXT I/O REQUEST"/ 
ADDRESS OF I/O DESCRIPTOR"// 



Al#Xl»A2»Xi 

0»X1#0)# 
A1*3(X1#A2) 



3»»3»,Xl»r"4 w »Xl,"5", 

7",X5."8»,XlltX24» 

2#"3"»X5»"4"// 

)» 

#A3»«(Xl# Al)»2(XitA5))» 

f 2(Xi#A5))j 



NEXTPAGEI 
C0MSAVE«»C0MM0NJ 

C0MM0N»pB00LEAN(64)l % OCTAL ONLY WHEN CALL PRINT 

DlSPLAY(TOGLE#FALSE)J 

IF OPERAND(TOGLEfR) ThEN 

BEGIN 
WRlTE(PrDBL3#NOMEMXl»OCTAL(R,tl5»63))J 
FOR Ilsl STEP 1 UNTIL 11 DO 

if biton(R,d then wriTf(P#tf»i»i»-di 

FILL TBf*3 WITH 



85 IS 



tt 


If, II 


'V 


"»XOO«BlT 00 


It 


"» " 


tt tl 


"»X03XBlT Ol 


tt 


If, If 


It ft 


"*X06%BlT 02 


tt 


tf , H 


ft It 


"»X09XBIT 03 


ft 


tf , It 


It II 


"*X12*BIT 04 


tt 


"(." 


It It 


"»X15«BIT 05 


tt 


II ,11 


It II 


"|218*BIT 06 



00(NEVER USED) 



START OF 



01821000 


T 


0082S0012 


50 


c 


01822000 


T 


0082*0014 


si 




01823000 


T 


006250017 


12 




01823100 


T 


008210019 


12 


^ , 


01823300 


T 


008210019 


(2 




01824000 


T 


0082?00i9 


12 




SEGMENT 


********** 


85 


c 


01825000 


T 


0085»00i9 


'2 




01826000 


T 


008550019 


, 2 - 




01827000 


T 


0085*0019 


!2 


r 


01828000 


T 


008550019 


(2 




01829000 


T 


0085*0019 


12 


- — . 


01830000 


T 


008550019 


i2 


c 


01831000 


T 


008510019 


!2 




01832000 


T 


008550019 


12 




01833000 


T 


008510019 


2 


c 


01834000 


T 


0085*0019 


12 




01835000 


T 


0085*0019 


!2 




01836000 


T 


0085*0019 


2 


c 


01837000 


T 


008550019 


58 




01838000 


T 


0085*0019 


12 " 




01839000 


T 


0085*0019 


12 


c 


01840000 


T 


0085*0019 


12 




01841000 


T 


0085*0019 


2 




01842000 


T 


0085*0019 


2 


c 


01843000 


T 


0085*0019 


2 




01844000 


T 


0085*0019 


2 




01845000 


T 


0085*0019 


t2 


c 


01846000 


T 


0085*0019 


2 




01847000 


T 


0085*0019 


2 - 




01848000 


T 


0085*0019 


12 


c 


01849000 


T 


0085*00191 


2 




01850000 


T 


0085500191 


2 




01851000 


T 


0085*0019 


2 




01852000 


T 


0085500191 


2 




01853000 


T 


0085*0019) 


2 




01854000 


T 


0085*00191 


2 


c 


01855000 


T 


0085*00191 


2 




202 LONC 


if 


NEXT SEG 


82 




01856000 


T 


0082*00191 


2 


c 


01856100 


T 


0082*00241 







01856200 


T 


0082*00241 


1 "-" " 


- - - -' 


01857000 


T 


0082*00251 


3 


c 


01858000 


T 


0082500271 


2 




01859000 


T 


008250028 







01860000 


T 


0082500261 


1 


c 


01861000 


T 


008250038? 







01862000 


T 


0082500391 


"2"~ 




01863000 


T 


0082500551 


3 


c 


01864000 


T 


0082500565 







SEGMENT 


********** 


86 




01865000 


T 


0082J0057I 


2 


c 


01866000 


T 


0082500575 


2 




01867000 


T 


0082*0057* 


2 




01868000 


T 


0082500575 


2 


c 


01869000 


T 


0082500575 


2 




01870000 


T 


008250057J 


"2 


c 



o 

o 

o 

; -o 

: : o 
"o 
o 
o 
o 

u 

o 
o 
o 
o 
o 
o 
o 

1 -J 



rt 
tf 
It 
II 
It 



ft , If 
M » " 

It,,. 

n n 



"DIRECT0R M »"YT0G 

"SEPTICTA M *"NKING 

"BREAKTOG'V 

» " , " 
it 

it 

ii 
H 
»i 

"CDFREE 

f, F!NDINGA"»"DDRESS 
"SCRATCHD","! RECTORY", "READY 
"McPFREE "»" "," 



ft, tf 
ft, ft 

II, It 
tf ft 



ft, ft 

"l" 
ft. If 

"," 

If,!. 

"," 

"»" 
"." 
"," 

"." 
f.,1. 

"," 
"»" 
"»" 



"," 
"." 



M |NQPTSTO M ,«PPED 

"DCQPTSTO"»"PPED 

"DCWAlTiN»,»»G 

"SMWSTOPP'VED 

w N!NIETEEN", M NOTREADr , , ,, NG 

"STARTOG '%" "," 

"EGGSELEC"»"TSTOPPED"»" 

"REMOTEUO M ,«GFREE 

,, SPOEDNUL", , 'LOG 

"INTFREE "." 

"QTRDY "," 

"NOBACKTA'V'LK 

"KEYBOARD", "READY 

"BUMPTUTI», W TIME 

"ABORTABL","E 

"NSECONDR"»"EADY 

"HOUDFREE"," 

"USERDISK", "READY 

"STOREDY "," 

"STACKUSE M »" 

"SHEETFRE","E 

"STATUSRI M , W T 

"HP2T0G "," 



"," 



"," 
"," 
"," 
"." 

ff H 
, 

"," 

"," 

"i" 



"»" 
"," 
"," 
"," 
"," 
"," 
"," 



"#X21XBIT 07 
"»224XBIT 08 
"»X27*BIT 09 

"»X30X B IT 10 
"»2332BIT 11 
",X36XBIT 12 
",X39SKBIT 13 
"»X42XBIT 14 
"'S45XBIT 15 
"»X48*BlT 16 
"»X51XBIT 17 
"#X54S&BIT 18 
"»«57XBIT 19 
"#X60*BIT 20 
"»X63*BIT 21 
",266!6B!T 22 
"»*69SSBIT 23 
M »X72XBIT 24 
",%75%B\T 25 
"#X78SBlT 26 
"»X8i2!BlT 27 
",lg84!8BlT 28 
",3587«BIT 29 
"#*90XBlT 30 
"*X93«BIT 31 
"»Z96XRIT 32 
"»X99XBIT 33 
"#X102a!BIT 34 
"»X105XBIT 35 
",X108XBIT 36 
"*X11UBIT 37 
"»Sll4SBlT 38 
"»XH72!BIT 39 
"*Xi20XBIT 40 
"»«1233!BIT 41 
B fX126XBlT 42 
"tX129X3?BIT 43 
"tXl32%B!T 44 
",21352BIT 45 
",2!138XBIT 46 
"IX1412BIT 47 



FOR 11*12, 13*14,21 STEP l UnTJL 47 DO 
BEGIN 

WRITE(LINE[*],TFXI,I, R EAL(BIT0N(R,I)))I 

MOVC (TB[3xn»0#L!NEC23»4»3» 0)1 

WRITE(P[DBL3»6»LINEC*])| 
END*. 

END* 

DlSPUAY(NOPROCESSTOG*FALSE)t 

nextitemj 
dumparray(tar)1 

0iSPLAY{T06UE»FALSe)I % FOR COMPARISON 
NEXTITEMJ 

nextpagej 

DISPLAYcOPTION,FAUSE)J 
IF 0PERAND(0PTI0N,R) then 
BEGIN 



01871000 
01872000 
01873000 
01874000 
01875000 
01876000 
01877000 
01878000 
01879000 
01880000 
01881000 
01882000 
01883000 
01884000 
01885000 
01886000 
01887000 
01888000 
01889000 
01890000 
01891000 
01892000 
01893000 
01894000 
01895000 
01896000 
01897000 
01898000 
01899000 
01900000 
01901000 
01902000 
01903000 
01904000 
01905000 
01906000 
01907000 
01908000 
01909000 
01910000 
019H000 
86 IS 144 LONG; 



01912000 

01913000 
01914000 
01915000 
01916000 
01917000 
01918000 
01918200 
01919000 
01919100 
01919200 
01919300 
01919400 
01920000 
01921000 
01922000 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

, 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



"0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*005712 
0082*0057*2 
0082*005712 

~ 0082*0057*2 
0082*0057*2 
0082*0057*2 
0082* '00571 2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 " 
0082*0057*2 
0082*0057*2 
0082*0057*2" 
0082*0057*2 
0082*0057*2 
0082*0057*2 
'0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2" 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 
0082*0057*2 

NEXT SEG 62 
0082*0057*2 

0082*0067*2 

0082*0067*2 

0082*0079*2 

0082*0082*0 

0082*0086* 1 

0082*0087*2 

0082*0087*2 

0082*0088*1 

0082*0089*2 " 

0082*0090*0 

0082*0091*3 

0082*0092*0 

0082*0096*0 

0082*0097*3_ 

0082*0098*1 






c 

c 



I 



c 
c 
c 



c 
c 

c 

r- 

c 

r 

c 



L 



: r\ 



r 



O 
O 

c 
o 

> 

■jo 
So 

r J 
-■J 

"o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



IF BIT0N(R»1) THEN 



WRITECP»TP#I 

FILL. TRt*] W 

"USEDRA" 

"USEDRB" 
"BojMES" 
"EOJMES" 
"OPNMES" 
"TERMGO" 
"GIVEDA" 
"GIVETI" 
"SAMEBR" 
"AUTOPR" 
"CLEARW" 
"DISCON" 
"COPNME" 
"CLOSEM" 
"ERRORM" 
"RETMSG" 
"LlBMSG" 
"SCHEDM" 
"SECMSG" 
"DSKTOG" 
"RELTOG" 

"pbdReL" 

"CHECKL" 
"DtSKMS" 
♦•NOT US" 
"LlBERR" 
"USEPBD" 
"SVPBT " 
"RSTOG " 
"AUTOUN" 
"RNALL " 
"CODEOL" 
"COREST" 
"DATAOL" 
"HALT " 
"NOT US" 
"NOT US" 
"NOT US" 
"NOT US" 
"STOPTE" 
"PUNCHL" 
"CDONLY" 
"PKTONL" 
"SEPARA" 
"NOT US" 
"M0D3J0" 

"AUTOME" 



1.' 

TH 



IV 



START 



if 

"S 

»s 
"s 

ff 

"TE 
"ME 
"EAKTAP" 
"INT " 
»RS» ST" 
"DC» NO" 
»SS 
"ESS 
"SG 



"SG 
n 

n 

tt 

»» 

"INK 

"G 

"ED 
» 

» 

"LD 
»t 

"AY 
it 

"AY 
it 

"ED 

"ED 

"ED 

"ED 

"ST 

"CK 
ti 

ii Y 

"TE 

"ED 

"S 

"SS 



"E "» 
« n , 

"OPUNT "t 
"TIFYOP". 



% BIT 22 



£108- 



% BIT 13 



$106. 



BIT 
BIT 



"i % BIT 1 



for i ?* i step i until 35 do 

WRITE(P,TF,I»REAL(BIT0N(R»1))»2» 

TB [A 1*28 + 2* (35- I )J » TB [ A + 1 3 ) J 
FOR 1**36 STEP 1 UNTIL 39 DO 



%1 08- 
5U08- 
SiOB- 

35108- 
*108- 



87 IS 



01 
01 
01 
01 
OF S 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 
01 



924000 
925000 
926000 
927000 
EGMENT 
928000 
929000 
930000 
931000 
932000 
933000 
934000 
935000 
936000 
937000 
938000 
939000 
940000 
941000 
942000 
94 3000 
944000 
945000 
946000 
947000 
948000 
949000 
950000 
950100 
950200 
951000 
952000 
953000 
954000 
955000 
955100 
955200 
955300 
955305 
955310 
955320 
955330 

955340 

955350 

955360 

955370 

955380 

955390 

955400 

955500 

955600 

98 LONG 

956000 

960000 

961000 

962000 

963000 



T 008210 
T 0082*0 
T 0082»0 
T 0082*0 

********* 



0082*0 
0082*0 
0082«0 
0082*0 
008210 
0082*0 
0082*0 
0082*0 
0082*0 
0082»0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0062*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 

0082*0 
0082*0 

0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 
NEXT SE 
0082*0 
0082*0 
0082*0 
0082*0 
0082*0 



099 
00 
4 



6 
6 
6 

,6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 

,6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 

6 
6 
6 
6 
6 
6 
6 
6 
6 

6 

6 

7 

27 



2 
1 


1 

8/ 







0" 





0" 





b" 







0" 











- 











0" 











0" " 























-• 

82 





2 

2 



r 

v_ 

C 
C 

c 
c 

c 
c 

c 
c 
c 
c 
c 
c 
c 

r 

/~ 

c 
c 
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o 



WRITECP#TF#I»REALCB|T0N(R,I))#3, 

TBCAI«sl6+3x(39-T)3»TBCA+13»TB[A + 23)l 
FOR 1**40 STEP 1 UNTIL 47 DO 
WR!TECP»TF»I#REAL(BiT0N(R,l)) f 2, 

TBrA«=2x(47-I)] f TB[A+I3)i 
END* 

nextitem; 

d i splay (messageholder, false)! 

m=oj 

if operandcmessageholder#r) and cr*=r,cf>*0 then 

DO 
BEGIN 

WRITECLINEE*3#ITEM»0CTALCR)» 
OCTAL(HlHALF(R))»OcTAL(LOHALF(R))* M m )* 

MOVD(M[{R+l) f ROW,cR+4).COL3*LlNE[4 3,MlN<9,MAXC0R- 

WRlTECP#15*LlNEt*])| 



■R))l 



END 

until 

m = I + i) GEQ MAXMESSAGES OR 
NOT OPERAND(R#R) OR 
{ p } _r rrj — Q 

ELSE WRITE(P»NULLMESSAGES)I 
IF DATACOM THEN 
r f r t N 

PRINTQUEUECSTATIONMfSSAGEHOLDER'O); 

PRINTQUEUE(U00KQ»1)J 

PRlNTQUEUECDC19Q»2)j 

printqueuecpingo»o)i 
printqueue(ill,(0&3 ctf))* 
if rje then 
printqueuecrjewaitq.o); 

NEXTPAGE1 

printarraycstation); 

FOR U = STEP 1 UNTiL 15 DO PaROW ( STAT I ON, I ) } 

NEXTPAGE* 
END ELSE NFXTITEM; 

D!SPLAY(NSLATe*FALSe)J 
DlSPLAY(LSLATEtFALSE)> 
IF VARIFY(SLATE,A,S»TRUe) and 

S,t47li)»0 AND 

OPERAND(NSLATE»N) AfgD 

N,ri»8]sO AND 

N<S AND 

N,C47I13bO AND 

OPERAND(LSLATE»L) AND 

L,tl>8]p0 AND 

L<S AND 

L.C47J13-0 AND 

L*N THEN 
DO 

BEGIN 
N*sREAL(B00LEAN(N+2) AND BOOLEANC S-l ) ) J 

WRITECLINE[*3,SE.0CTAL(N)» 

OCTaL(HIHALFCA+N))iOCTAL(LOHALFCA+N))» 
OCTAL(HIHALFCA+N+l))»OCTAL(Rl-LOHALF (A+N*l)))l 

IF l29<(R|sR,CF) AND R<PRTMAX THEN 

M0Ve(NaMS[NaME[R3.Cf3»LiNe[33, 



01964000 


T 


0082*0139*2 


c 


01965000 


T 


0082I0H9I2 




01966000 


T 


0082101 61 13 




01967000 


T 


0082*0163*2 


c 


01968000 


T 


0082*0173*2 




01969000 


T 


0082*0183*3 




01970000 


T 


0082*0183*3 




01971000 


T 


0082*0184*0 




01972000 


T 


0082*0185*3 




01973000 


T 


0082*0186*0 


c 


01974000 


T 


0082*0189*3 




01975000 


T 


0082*0190*0 




01976000 


T 


0082*0190*0 


c 


01977000 


T 


0082*0197*2 




01978000 


T 


0082*0209*2 




01979000 


T 


0082*0216*1 


c 


01980000 


T 


0082*0220*1 




01981000 


T 


0082*0220*1" 




01982000 


T 


0082*0220*1 


c 


01983000 


T 


0082J0222M 




01984000 


T 


0082*0224*0 




01985000 


T 


0082*0225*2 


c 


01985100 


T 


0082*0230*0 




01985105 


T 


0082*0230* 1 




01985120 


T 


0082*0231*2 


c 


01985150 


T 


0082*0232*1 




01985200 


T 


0082*0233*3" 




01985250 


T 


0082*0235*2 


r 


01985300 


T 


0082*0236*0 


v -— 


01985350 


T 


0082*0238*0" _ " — 




01985375 


T 


0082*0238*1 




01985380 


T 


0082*0240* 1 




01985385 


T 


0082*0244*1 _ 




01985390 


T 


0082*0246*0 


i 


01986000 


T 


0082*0250*1 


•■— 


01986100 


T 


0082*0254*1 




01987000 


T 


0082*0255*3 


c 


01988000 


T 


0082*0257*2 


01989000 


T 


0082*0258* 1 




01990000 


T 


0062*0260*0 


r 


01991000 


T 


0082*0261*3 


^s_ 


01992000 


T 


0082*0263*2 




01993000 


T 


0082*0264*1 


c 


01994000 


T 


0082*0265*3 




01995000 


T 


0082*0267*2 




01996000 


T 


0082*0268*1 


\_ 


01997000 


T 


0082*0270*0 




01998000 


T 


0082*0271*2 




01999000 


T 


0082*0272*1 


c 


02000000 


T 


0082*0273*3 




02001000 


f 


0082*0275*2 




02002000 


T 


0082*0275*2 


(_ 


02003000 


T 


0082*0277*2 




02004000 


T 


0082*0285*2" 




02005000 


T 


0082*0292*0 


r 


02006000 


T 


0082*0303*2 




02007000 


T 


0082*0 306*0 
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o 



WRITECP 

END UNTIL 

ELSE WRITE 

NEXTITEMJ N 

SGl.TOG»sTRU 

IF TlNUnK»sVERlFY(T 
VERIFYCM 
VERIFYCL 
VERIFYCR 
VERIFYCP 
BEGIN 

SJ^MAXC 
WRITECP 
FOR 11= 
BEGIN 
WRITECT 
IF !<TS 
BEGIN 
WRI 



NAMECR3.FF)' 
#15,LINf[*])j 
NsL 

(P,NULLSLATE>» 

EXTPAGEI 

E* 

INU»TA,TS> AnO 

ULTITABLE»MA»MS) 

ABELTABLE»LAiUS) 



AND 
ANO 



DCTABLE»RAiRS> AND 
RNTABUE»PA#PS) THEN 

TS»MS*LS»RS*PS)"1I 

MOATH); 

STEP 1 UNTjL S DO 

Bt*]»LUN»OcTALCI))l 
THEN 



24I3J, 



MOV 

ENDI 

IF KMS 
MOV 
KUS 
MOV 
IF 
BEG 



TE(UINE[*3,FT» 
(A««HIHALF(TA+I))»C 
0CTAlCA.t27i5J), 
A.C32833* 
OcTALCA,t35i7]}» 
OCTaU(A.C42?63), 
CA«=tOHALFCTA+I)),[ 
0CTAU(A.t25{5]), 
A,[30$i8])i 
CHNE[0],0»TB[l]*lt2»6)l 



24|l] f 



IF 



END 

IF 

BEG 



END; 



END 
WRI 



Then 

CCM[(MA+I).RoW»(MA+I).COL3»Ot TB[43i5»1»0)J 

THEN 
CCM[<U+I>.R0H»(L,A + I),C0L]t0»TB[6J*3»l»0)l 
I<RS THEN 
IN 

WRITE(LINf[*]»RT» 

OcTALCf ASsHlHALFCRA+I)).[2Af8]), 

0CTAl(A,t32l6])t 

OCTAU(A.t38ilO]), 

0CTAU(AlaL0HALFCRA + I)).t24tl7]>» 

octalca, ui»7])); 

MOVC(LlNEfO]»0,TB[83t 1»2»6)J 
J 

I<PS THEN 
IN 

WRITECLINfE*]»PT» 

CA««HIHALf<PA+I)). [2411], 

A»[25li3f 

0CTAl(A.C26ll3])f 

0cTAb(cAUU0HALFCPA+I)&ACl5l39i9]),ci5tl5]), 

0CTAb(A.[30ll8]))J 

MOVC(LlNErO]tOf TB[ilJf 5»2»6)l 

t 

TE(P#15,TBt*]); 



end; 
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nextpa 
oispla 

DlSPLA 
IF VE 
VE 
VE 
VE 
BEGIN 
SI 
WR 
FO 

BE 
WRITE 



GE» 

YCIOQUESLOTS, FALSE)! 
YCIOQUFAVAIL, FALSE)! 
RlFYfUNlT,UA,US) AND 

RlFYf 10QUE»IA»IS) AND 
RlFY(tOCATQUE»LA»LS) AND 
RIFY(FINALQUE»FA*FS) then 



«MAX( 

ITECP 
R Up 
GIN 
CTBC* 
LOHAL 
IF 
BEG 



UStIS#LS#FS)-l! 

*IOQSH); 

STEP 1 UNTIL S 



DO 



END 

IF 

BEG 



END 

IF 

BEG 



3»IFOtOc 
FCTA+I), 

i<us the 
in 

WRlTE(L 
CAlsHlH 
OCTALCA 
OCTALCA 
A , C 37 S J 
A » C38; J 
A,[39»i 
A»[40*2 
OCTALCC 
OCTALCA 
MOVCCLl 

; 

!<IS THE 
IN 
WRITECL 

OCTALCH 
OCTALCL 
MOVCCLl 

f 

I<LS THF 

in 

WRITECL 
(AI=HIH 
OCTALCA 
OCTALCA 
OCTALCA 
OCTALCC 
OCTALCA 
MOVCCLl 



TALCl >» IF TINUOK THEN 
[30118] ELSE n ***")i 

N 



inec 

ALFC 

• C?5 

.[2* 

]» 

]» 

3» 

3* 

A*=L 

. C33 

NEfO 

N 



*]tUFQ» 
UA+I)),[24in, 

I4J)» 
i83 )» 



OHALFCUA+ I )*AI 18U2I 6] ).C 18*15] >, 

*15]))> 

]»0*TB[13»4»3»4)) 



INfC*3»WfO» 
IHaLfCIA+I))» 
OHaLfCIA+I)))! 
NEtO]«0»TB[53#7#2#n! 



N 



lNEC*3fLF0, 

ALFCl,A + I)),c24l3]t 

,[?7:53)» 

, [32*43 )» 

«[36|63)t 

A»sLoHALFCLA+I)&A[lfl»42!63),[18!l53)# 

•C33|15]))| 

NE[0]#0#TBC83»7 , '2'6)J 



END 

IF 

BEG 



THEN 



I<FS 

IN 

WRITECL 
OCTALCH 
OCTALCL 
MOVCCLl 
<l 



INe[*3#WfO» 
IHALFCFA+I))# 
OHALFCFA+I)))! 
NEtO]iO,TBtl2]t4»2»l)J 



END. 

WRITECP»15»TB[*])! 
END> 
NFXTITEM? 
PRINTARRAYCCHANNEDJ 
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END 



nextitemj 
dispuycdiskount»falsf)i 

IF DFX THEN BEGIN 
DlSPLAYfEUW, FALSE)J 

prtnTarrayceuq); 

end; 

if sharedisk then 

BEGIN 

NEXTITEMJ 

DlSpUYUQAVAlL»FALSE)J 

IF VARIFY(LQUE»UA,US»TRUE) AND 

OPERAND(LQAVAIL»FA) AND FA GEQ AND FA LEQ US THEN 

IF FA = THEN WR I Tf( P» NULLQUE ) ELSE 

BEGIN 

write(P[Dbl]#lQuehdr); 

S!sMIN(20#FA«t >J 

FOR Cl=0 STEP 1 UNTIL S DO 

IF NOT OPERANDCUA + C»L) OR { L,Al«Ut C 1 173 ) GEQ 64 THEN 

WRiTE(PtBADLQUENTRY#OCTAL(C)tOCTAL(HIHALF(L))» 

OCTALCLOHALF(L))) ELSE 
WRITE(P»FUQUE*0cTAL(C)»0CTALCLA , )»L»C8i4]iLitl2l363) 

end else write(p#badlque)5 
end lquei 

END! 
COMMONIpCOMSAVEJ 

sgltog»=false; 
dumping mcp info* 



procedure dumpauxmem; 

BEGIN 

FORMAT AUX("DR"»Al»" MEMORY DUMP"), 



AUXMESS("# printing CONTENTS OF DR m »A1»",,,")J 

labfL tRyanothe r »exit* 

boolean comsave* 

rfload!=true; 

tryanotherjx 

if nomo then go ex it? 

nextpage; 

load; 

if auxtype neq THEN % auxmem present 

begin 

NeXTITEM i 
WRITE(P»AUX,16+AUXTYPE DIV 4)} 

write(sp0,auxmess,16+auxtype div «)l 

nextitem; 

comsave«»common> 

C0MM0N«=B00LEANf5l2)J % ALPHA/OCTAL 
PR1NT(0, 32768)? 

common«=comsave? 
go tryanother; 

ENDI 

exitiReLoad»=false; 

END DUMPAUXMEMi 
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O ! PROCEDURE F|XftD* 02119300 T 00105028651 C 

BEGtN 02H9310 T 00105028651 

REAL AJ 02119320 T 0010502865 1 

START OF S F P M F Nl T ********** 90 /"" 

FORMAT FNEWFILEC"#NEXT FILE TO BE ANALYZED IS MEMORY/", Al » A6) i 02119330 T 00905000050 

START OF SEGMENT ********** 91 

91 IS H LONG. NEXT SEG 90 (" 
STREAM PROCEDURE MlNUSi(N»A)J VALUE Nl 02119340 T 00905000050 

"" BEGIN SHbLOC KIJ SI5sSl+5| DI5sAj DI * ssDI +5; DSS*3 SUB FNDl 02119350 T 00905000050 " ~" 

O MINUSKlfTDFID); 02119360 T 00905000153 Q 

FILL MdUMP WITH f.TDFlD? 02119370 T 00905000352 

WRITE! SPO^FNeWFILE»TdFID.C6563»TDFID)1 02119380 T 00905000753 

O END! 02119390 T 00905001850 Q 

90 IS 21 LONG* NEXT SEG 10 

FORMAT C0LHDR( M B55O0 COLLATING SEQUENCE."//X8 »»0 1234567"/) » 02119500 T 00l0?02865i 

START OF SEGMENT ********** 92 Q 

FPUNTCHANG CAUSED BY« ».X24>» 02119505 T 00925028651 

C0L!NECX5»11»X2#X8); 02119510 T 00925028651 

92 IS 27 LONG. NEXT SEG 10 Q 
ARRftY C0LLATEE057JJ 02119600 T 00101028611 

INTfGER DUMPDJ 02120000 T 00105028953 " 

O PROCEnURF INITIALIZE? 02120100 T 001050289J3 Q 

C0MMENT5ZERQ VARIABLES & ARRAYS IN THE FVENT MORE THAN ONE FILE IS 02120110 T 00105026953 

PROCESSED IN A GIVEN RljN? 02120115 T 00105028953 

O BEGtN 02120120 T 00105028953 

INTEGER K.JJ 02120125 T 00105028953 

START OF SEGMENT ********** 93 

O LABEL EXIT > 02120130 T OO935O0OO5Q r 

IF MOT RELOAD THEN GO EXIT! 02120135 T 00935000050 

COMMENTsZERO REALS & INTEGERS? 02120140 T "00935000051 ~ — 

O *** 02120145 T 00935000051 f 

R5= 02120150 T OO935O0O0J1 

VJOrNUMj* 02120155 T 00935000051 "" 

Q VBED5S 02120160 T 00935000051 

TABLESL0C5» 02120165 T 00935000051 

0> 02120170 T 00935000051 

q MINLNK5* 02120175 T 00935000353 

MJNbAD5= 02120180 T 00935000353 
MAXbAD5b 02120185 T OO935O00353 ~ 

O MAXlNKIb 02120190 T 00935000353 

PRTC0DE55 02120195 T 00935000353 

0; 02120200 T 00935000353 

Q MAXMCPROG»= 02120205 T 00935000650 

ESPj* 02120210 T 00931000650 

BADSAVEPRTL0C5? 02120215 T 0093 5 0006" 50 

O iNTsPMAXJs 02120220 T 00935000680 

PR0wS5s 02120225 T 00935000650 

Oj 02120230 T 00935000650 "" 

Q MAXSTK5P 02120235 T OO935O00952 

BEDSTK5= 02120240 T 00935000952 

DUMPD5= 02120245 T 00935000952 

O 0{ 02120300 T 00935000982 

C0MMENT5MAKE BOOLEANS FALSE? 02120400 T 00935001051 

LNK$0Ki* 02120405 T 0093500105 1 " 

O AVALNK0K8- 02120410 T 00938001051 r 

SOMoKF8= 02120415 T 00935001051 

S0MqKb5= 02120420 T, 0093 5 00105 1 ' " 
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NEEnCHFCKAVAlCNKSJ* 

FALSE* 
BADcOMMFNTIb 

FALSE* 

COMMENTJZERO ARRAYS? 

FOR K*«0 STEP 1 UNTIL MIXmAX DO 

MlXSTK[K]«= 

Oi 
FOR KJsO STEP 1 UNTIL INAMESlZE-1 DO 

INTSPCKlls 

0? 
EXIT! 

fnd initialize* 



RESTART*** 

INITIALIZE* 
FILI..AREATYPE* 
LOAD* 
DUMpMCPSPRT; 

IF NOT COMMON THEN 

IF DUMPCESSPOOLONLY THEN 

BEGIN 

OUMPCESSPOOL* 

r,o eoproq; 

END? 

IF NOT COMMON THEN 

BEGtN 

checkmemorylinks* 

getstacksfromthebed; 

getandsortmcprog* 

END} 

IF COMNT THEN BEGIN 

WRITE(P[DBL]»STARS)J 
NOT COMMON THEN 
0PeRaND(107»PR0wS) AND 



93 IS 



8(106- 



PROWS 
AND R,CF 



NeQ 
LSS 



"EEEE B &"EEEE"[il25i23] 

4096 then 



PROWS UEQ R+I THEN 



IF 
IF 

IF pdaTadesccpunter»R) 

BEGIN 

I ?sR f [811031 

R?sR,CF* 

IF PROWS GEQ R AND 

BEGIN 

WRlTECLlNE[*3iFpUNT)| 

MOVD(MCPROWS,ROWtPROWS,COL3»LINECZ]i3)l 
WRlTE(P[DBL3»l5,LINEt*])J 
END? 
FND* 

IF BADCOMMENT THEN WR I Te(P[ DBL3 , COMNTP A« ) ELSE 
BEGIN 

WRITE(P#10*C0MMT[*3)J 
MOVE(COMMT[i03»COMMT[0]»iO)* 
WRITE(P»10»C0MMT[*3); 
END; 

WRITE(P[PAGE3»STARS); 
END? 
IF NOT COMMON THEN 
BEGIN 
IF NODUMP THEN ELSE 
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if 0perand(16»r) and r geo 12 and r le« 15 
then begin 

NFFDCHECKAVAllNKSlsNOT AVALNKOK* 
PRjNTfO.R)? 

IF OPfRANDC107^PROWS) AND PROWSs«EEEE H &»FEEE M [ 1 * 25 * 23 ] 
THEN IF 0PERAND(R+96>PR0WS) AND PROWS NEQ M EEEE"&"EEEE"U *25*23 ) 
THEN wRlTECPtDBUl* I TEM. OCT AL CR ) * OCTAL (HI HALF (PROWS *=R+96) ) » 

OCTAL(LOHALF(PROWS)))I 
DONTPRINTLINKS^TRUEJ 
PR|NT(R+1«16); 

END FLSE PRINT(0.36)> 
DONTPRfNTLlNKSlsTRUE? 

if nOdump Then else 

IF MINLNK GTR DUMPD*=36 T H EN 
BEGiN 

DUMPD»=MINLNK* 

WRITE(PCDBL3*<X48»«MCP INTERRUPT LOCATIONS'^) J 

PR1NT(36#6A)J % INTERRUPT CODE 
WRlTE(PtDBL]#<X50»"McP INTERRUPT STACK M >)J 

PRINT(6A»H2)| % INTERRUPT STACK 
WPITE(PtDBL]»<X56»"McP PRT">)J 

PRINT(112.PRTMAX+1)| % PRT 

IF NOT NOMCPCODE THEN 

IF (R«sOUTERBLOCKtO))eO THEN PR INT ( 36, M INLNK ) ELSE 

BEGIN 

write(p[dblj.<x50,»mcp outer block code">)j 

print(r»cf«r,ff+ 1)1 % outerblock 

end; 

dumpmcpsavecode(esp.minlnk) j % analyze save code 

END* 
DONTPRtNTUNKSIsFALSE* 

if lnksok t h en 

DUmPMEM0RYANDN0TESTACkS(MINlNK#DUmPD!=MAXLNK) 
ELSE 
BEGIN 

IF SOMOKF THEN 

DUMPMEMORYANDNOTESTaCKS(DUMPD»DUMPD1*MINBAD)J 

IF SOMOKB THEN 

BEGIN 

PRlNT(DUMpDfMAXBAD)! 
DUMPMEMORYANDNOTEsTaCKS(MAXBAD»DUMPD*MAXLNK)J 

END J 
END? 

END* % IF NOT COMMON 
PRlNT(DUMPD,MAXCOR+l)S 

if nodump then 

BEGIN 

NODUMPTOGt-TRUE* 

COMMONl-COMMON AND NOT BOOLEAN( 384 ) J 
END? 

IF NOT COMMON THEN 
BEGIN 

LlSTMcPROGJ 

dumpmcPiNfo; 



*107- 
£107" 
X107- 



94 IS 



95 IS 



96 IS 



?107- 



31106- 



97 IS 



02139000 T 
02140000 T 
02141000 T 
02142000 T 
02142100 T 
02142120 T 
02142200 T 
02142250 T 
02142260 T 
02142300 T 
02143000 T 
02143100 T 
02144000 T 
02145000 T 
02146000 T 
02147000 T 
02147500 C 

8 LONG. 
02148000 T 
02148500 C 

8 LONG. 
02149000 T 
02149050 C 

6 LONG. 
02149100 T 
02149200 T 
02149300 T 
02149350 T 
02149360 C 

8 LONG. 



02149400 
02150000 
02150010 
02150050 
02150075 
02151000 
021 52000 
02153000 
02154000 
02155000 
02156000 
02157000 
02158000 
02160000 
02161000 
02162000 
02163000 
02163100 
02165000 
02165100 
02165110 
02165120 
02165130 
02165140 
02166000 
02167000 
02168000 
02169000 



0010*0349*2 

0010*0351*3 

0010*0353*2 

001050354*0 

0010*0357*2 

0010*0359*3 

0010*0363*3 

0010*0376*0 

0010*0382*0 

0010*0383*2" 

0010*0386*1 

0010*0390*1 

0010*0391*2 

0010*0393*2 

0010*0394* 1 

0010*0395*2" 

0010*0396*0 

NEXT SEG 10 
0010*0399*2 
0010*0402*0 

NEXT SEG 10 
0010*0405*2 '" 
0010*0408*1 

NEXT SEG 10 
0010*0411*3 
0010*0415*2 
0010*0416*0 
0010*0422*0 
0010*0422*1 

NEXT SEG 10 
0010«0425»3 
0010*0430*0 
0010*0430*0 

"0010*0431*2 
0010*0431*2 
0010*0432*0 
0010*0432*0 
0010*0433*2 
0010*0434*0 
00101043411 
0010*0435*2 
0010*0437*2 
0010*0437*2 

0010*0437*3 
0010*0441*2 
0010*0442*1 
0010*0442*1 
0010*0442*1 
0010*0442* 1 
0010*0446*0 
0010*0447*3 
0010*0448*0 
0010*0448* 1 
0010*0450?0 
0010*0450*0 
0010*0450*1 
0010*0451*2 
0010*0452*0 



C 

c 
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c 
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c 
c 
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c 
c 
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c 
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c 

c 
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7 DO 



GETSORTANDLlSTlNTRjNSfCSJ 

dumprograms? 
dumpcontrolstacks; 
printselectedarrays; 
dumpauxmem; 

END; 
EOPROG?* 

FILL COLLATEf*] WITH 
OCT0001020304050607* 

0CTl0H1213l4l5l6l7, ■ 

0CT?021222324252627, 

0CT303J323334353637, 

0CT4041424344454647, 

0CT5051525354555657, 

0CT6061626364656667» 

0CT7071727374757677; 

writecptpageJ)? 

WRlTEfP»COLHDR); 

FOR JlsO STpP 1 UNTIL 

BEGtN 

WRlTECUlNE[*]*COLiNE.I)J 

M0VE(C0LLATEtI3»LlNErl]»l)l 
WRlTE(Pt2#LlNE[*3); 
END; 

IF MULTI AND TDFID, [30118] GTR i THEN 
BEGIN 

IF NOT REPEATING THEN 

BEGIN 

Repeatingj-truej 

SPACECMDUMPi- 1)CXX|XX]| 
XXJCLOSECMDUMP**); 

end; 

FJXFIDJ 

RELOADJsTRUEl 

PRINTCOMMONVAUUES; 

WRITECPCDBL]); WR \ TE< P[DBL] ) t 

WRITE(P»FINI)J 

NEXTPAGEi 

IF N0DUMPT0G THEN BEGIN 

NOdUMPtOqIsFALSE? 
COMMONlsCOMMON OR 

MYSTACKADRJs-i; 

go restart; 
end; 
END;* %%%%%%%% 



B00LEANC384) END; 



% % % % % END INNER BLOCK %%%%%%%%%%% 



printcommonvalues? 

WRITE(PtOBL3))WRlTECPtDBL3)i 

WRITE(P,FINI); 

END, 



NUMBER OF ERRORS DETECTfD = 1. COMPILATION TlM E * 202 SECONDS, 

PRT StZf = 354) TOTAL S F GM F NT SiZ E * 7971 WORDS; DISK SIZE = 360 SEGS; NO, PGM, SEGS 



02170000 
02171000 
02172000 
02172100 
02172200 
02173000 
02173400 
02173500 
02173510 
START OF SEGMENT 
02173520 
02173530 
02173540 
02173550 
02173560 
02173570 
02173580 
98 IS 8 LONG, 
02173590 T 
02173600 
02173610 
02173620 
02173630 
02173640 
02173650 
02173660 
02173700 
02173710 
02173720 
02173730 
02173740 
02173750 
02173760 
02173770 
02173780 
02173790 
02173791 
02173792 
02173793 
02173795 
02173796 
02173797 
02173798 
02173799 
02173800 
02173810 
02174000 
10 IS 518 LONG, 
02174500 T 
02175000 T 
02176000 T 
02178000 T 
2 IS 53 L0NG» 
1 IS 2 LONG* 
107 IS 69 LONG, 
00597100 



00t0S0452» 1 
001050453*2 
00l0!0453*3 ' 
0010I0454JQ 
001010454? 1 
00101045512" 
0010.1045512 
0010»0455»2 
0010J0455J3 
98 



T 
T 
T 
T 
T 
T 
T 
T 

T 

********** 



001010456? 1 

0010I0456T1" 
0010J0456I 1 
001010456? 1 
00 10? 0456"? 1" 
0010?0456? 1 
0010?0456? 1 
NEXT SEG 10 
0010?0456? 1 
001050460? 1 
0010? 0463? 3 
0010?0465?2 
00l0?0465?2 
00i0?0473?2 
00l0!0475?2 
0010?0479?2 
0010? 04 81? 3" 
0010I0483?3 
0010«0484?0 
0010?0484?1 
0010?0485?2 
0010!0485S3 
0010?0491?2" 
0010?0493?3 
0010?0493?3 
0010?0494?0 
0010?0495?2 
0010?0495?3 
0010?0503?3 
0010J0506? 1 
0010?0510?1 
0010?05H?2 
0010?0512?0 
0010?0513?2 
O0lO?O5l4?0 
00l0?05l4? 1 
00l0?05l4»l 
NEXT SEG 2 
0002*003810 
000250038?! 
00025004611 
0002?0049?3 
NEXT SEG 1 
NEXT SEG 0- 
NEXT SEG 
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ESTiMATFD CORE STORAGE REQUIRED s 11551 words: 
ESTIMATED AUXILIARY MEMORY REQUIRED - WqRDS, 
NUMBER OF CARD-IMAGES PROCESSED s 3679, 
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O' XVI, 0,122 MONDAY* H/07/77. 10*46 aM, 
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dump /analyze 



SOURCE FILEI SYMBOL /DUMPANL 



A — STREAM VARIABLE •• NaMf PARAMETER — DECLARED IN SEGMENT 19 AT 00319000 
(J 00320000 

A -" STREAM VARIABLE -- NAMe PARAMETER -• DECLARED jN SEGMENT 20 AT 00352000 '- 

OO353OOO ....... 

Q A — . STREAM VARIABLE -- NAME PARAMETER ». DECLARED IN SEGMENT 29 AT 00586000 

A — STREAM VARIABLE — NAME PARAMETER — DECLARED IN SEGMENT 41 AT 00763170 C 

00763175 __ 

O A •"• STREAM VARIABLE *- NAME PARAMETER — DECLARED IN SEGMENT 41 AT 00763190 r 

00763195 *00763205* C 

A -- REAL — VALUE PARAMETER — DECLARED IN SEGMENT 41 AT 00763290 - 

O 00763330 *00763335* 

A — STREAM VARIABLE " NaMf PARAMETER — DECLARED IN SEGMENT 44 AT 00763300 L 

00763305 



O A "" s JJj£AM VARIABLE « NaM f PARAMETER — DECLARED IN SEGMENT 41 AT 00763355 

00763360 



c 



A -- STREAM VARIABLE — NAMe PARAMETER -- DECLARED IN SEGMENT 45 AT 00763385 •- 

O 00763390 

A — STREAM VARIABLE — VALUE PARAMETER • • DECLARED IN SEGMENT 10 AT 00765000 

00766000 

O A — STREAM VARIABLE -• DECLARED IN SEGMENT 47 AT 00807170 

#00807200* 00807?30 L 

A -« REAL ARRAY -» DECLARED IN SEGMENT 50 AT 00817000 

O 2! 82 *i 10 00826990 00827000 00828000 00829000 00832000 00832100 00833000 00834100 00835100 

A — INTFBER — DECLARED |N SEfiM E NT 74 A T 01524000 " ° "OOJS100 L 

♦ 01559000**01561000* . . ... . _ _.. 

q a — real •• declared in segment ii at 01703000 

017HOO0 *0i7i2000* 0l7i3000 0i7l9000 01721000 0i73l000 C 

A -• REAL -• DECLARFD IN SEGMENT 79 AT 01757335 _... 

O 01757505 01757530 0i757590 01757730 01757820 0i757960 

A « REAL -- DECLARFD IN SEGMENT 82 AT 01758200 C 

*Ji^ 2 ;5°**°l965000**Ol968O0O* 01989000 02004000 02005000*02027000*02028000 02029000 02030000 02031000 

O *2 2 2 3 5°°2* °2J 33 000 02034000 *0 2 044000* 02045000 02046000 *0 2 047000* 02048000 *02054000* 02055000 02056000 

*02057000* 02058000 *0 2 8 0000* 2 08 l0 00 02082000 2 083000 02084000 0^085000 02086000 *020870oS* SlolsoSo C 

*02101000* 02102000 02103000 02104000 *02105000* 02106000 *u d v 0f vvv* uzuoouuo 

O a — Real — name paRametfR — declared in segment 82 at oiaiaooo 

OiSnOOO Oi8i8000 O182OOOO *0i82i000* O1822OOO L. 

A — REAL •- DECLARFD IN SEGMENT 90 AT 02il9320~ -- 

O a « stream variable — name parameter — declared in segment 90 at 02119*40 

02H9350 L, 

ACCIDENTRY — STREAM LABEL — DECLARED IN 5EGmE N T 70 AT 01371135 •- OCCURS AT 01371280 
O 01371230 

ACTUALPRTBASE — DEFInE *" DECLARED In SEGMENT 2 AT 00026000 C 

00089000 00270000 00292000 00293000 00913000 01392000 — 

O ADATE — aLPHa "- VaLUF PARAMETER "- DECLARED IN SEGMENT 10 AT 00463000 

00461000 00462000 00479000 U 

ADDRESS -- INTFGFR — VALUE PARAMETER •- DECLARED IN SEGMENT 10 AT 01349520 

o 



o 



o 



01349500 01349510 01349560 01349600 01349610 01349630 01349690 f 

ADDRESS -- STRFAM VARIABLE — VALUE PARAMfTfR — DECLARED IN SEGMENT 70 AT 01370530 

01370550 01370680 ... 

Q ADR «•- INTEGER »« VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 00655000 f 

00653000 00654000 OO6585OO 
ADR -- REAL — DECLARED IN SEGMENT 36 AT 00734000 
Q *0Q748000* 00753000 Q 

ADR -- REAL — DECLARED IN SEGMENT 60 AT 0H04000 
01135000 *01136000* 01168000 01168900 
O ADR »• REAL -- DECLaRFD IN SEGMENT 66 aT 01287000 f 

01292000 01294000 *0l295000* 01295100 01298000 
ADR — STREAM VARtABLf " VaLUf PARAMETER •• DECLARED IN SEGMENT 10 AT 01349120 
JQ 01349130 0i349 ? 60 C 

ADR »• INTEGER -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 01349520 

01349500 01349S60 01349570 01349600 *0l3496l0* 0i349630 01349640 0\ 349690 01349700 
; Q ADR — INTEGER -»- DFCLARED IN SEGMENT 70 AT 01357000 f 

01444000 01447000 01465600 01469800 
< J ADR -" REAL -- DECLARED IN SEGMENT 74 AT 01531000 

'O *0l6l8000* 01621000 01624000 01625000 01640000 01641000 01655000 0i656000 f 

,] ADRR — REAL <•- DECLARED IN SEGMENT 36 AT 00735000 

s AGAIN — LABEL -- DfCLaRED IN SEGMENT 47 fl T 00807150 -- OCCURS AT 00807320 """" 

:=0 00807410 r 

AIT -- INTEGER •- DfCLaRED IN SEGMENT 74 AT 01522000 

01588000 *0i690o00* 01695000 01696000 *0l698300* 

Q AL — STREAM VARIABLE •«• VALUE PARAMETER •• DECLARED IN SEGMENT 29 AT 00576000 f 

00577000 00583000 

AL — BOOLEAN — DECLARED IN SEGMENT 29 AT 00589000 

Q *00590000**00594l00**00594300* 00594400 *00595000* 00642000 00644000 f 

ALINE — REAL ARRAY -- DECLARED IN SEGMENT lO AT 00559000 

OO64OOOO 00643000 00644400 00645000 OO646OOO 01465600 01466300 0i466700 01468900 0l469l00 01469200 """ 

01469800 *01469900* 01470000 Q 

ALINE — STREAM VaRIApLe " N A Mf PARAMETER — DECLARED IN SEGMENT 29 AT 00586100 
00586120 
Q AMAX — TNTEGFR •- VALUE PARAMETER •• DECLARED IN SEGMENT 10 AT 01335000 Q 

01332000 01333000 01339000 0i340000 
ANAME -- REAL ARRAY -- NAME PARAMETER *- DECLARED IN SEGMENT 2 AT 00044000 

q 00041000 00054000 OOO58OOO r 

AO -« STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 29 AT 00576000 

■ " " 00577000 00579000 " " 

Q AO — BOOLEAN -- DECLARED IN SEGMENT 29 AT 00589000 r 

*00591000**00594?00* 00594300 *00594400**00595000* 0064?000 00644000 

ARAY — REAL ARRAY — NAME PARAMETER •• DECLARED IN SEGMENT 10 AT 01226000 "" — 

01224000 01242000 01243000 01247000 *01248000* f 

ARAY — RFAL ARRAY •- NAME PARAMETER — DFCLARED IN SEGMENT 10 AT 01334000 

01332000 01342000 01344000 01345000 " 

,~) AREATYPF — REAL- ARRAY " OFCL A RED IN SEGMENT 10 AT 00295110 .■- 

*00295280* 00593000 
ARGH -" DFFINE •• DFCLARED IN SEGMENT 10 AT 00164290 
(-) 00763445 00763470 r 

ARPAYSFILLED — BOOLEAN « DECLARED IN SEGMENT lO AT 00295115 

00?95275 *00295990* " 

q ARROW -- DEFINE -- DECLARED IN SEGMENT 10 AT 00113150 r 

01118100 01349^80 01370230 01371420 

AT -- STREAM VARIABLE »* NAME PARAMETER -" DECLARED IN SEGMENT 10 AT 00536000' 

O 00540000 C 

AT -• INTFGER "- VALUE PARAMETER " DECLARED IN SEGMENT 10 AT 00651200 

00651100 " """ 

o c 



I 



O 01116700 

^ AVAILM -- INTEGER •- DECLARED IN SEGMENT 56 AT 00949000 



*■ — ■■ 



w 1 



B -- REAL •- VALUE PARAMETER" " DECLARED iN SeGME n T 41 AT 00763375 



Ci c 

O ' AT — INTEGER — VALUF PARAMETER -» DECLARED IN SEGMENT 10 AT 00671000 f 

w 00669000 00670000 00675000 

AT -- INTEGER •- VAi.UE PARAMETER — DECLARED IN SEGMENT l0 AT 00685000 

p 00683000 00664000 00689000 p 

^ at — integer — value parameter — declared in segment 10 at 00697000 

00695000 00696000 00701000 " "" 

AT -«• INTEGER — VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT 00707000 p 

00705000 00706000 00711000 

AT — INTEGER "" VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 01352000 " " 

O 01351000 p 

^ AT — INTEGER — VALUF PARAMETFR " DECLARED IN SEGMENT 10 AT 01514000 

01512000 01513000 01516000 01517000 

;'0 atp -- Real array — declaRfd in segment to at 00295110 p 

*00295700* 0H69400 

s ATTACHED — DEFINE — DECLARED IN SEGMENT 10 AT 00164230 " " " 

^0 AUX -" FORMAT — DECLARED IN SEGMENT 89 AT 02119120 £ 

021 19220 

AUXCODE « DEFINE •• DECLARED IN SEGMENT lO AT 00164120 

O AUXDATA — DEFINE « DECLARED IN SEGMENT lO AT 00164110 f 

AUXMEMM — DEFINE « DECLARED IN SEGMENT lO AT OOllOOOO 

AUXMESS -- FORMAT — DFCLARED IN SEGMENT 89 AT 02119130 

p 02119230 p 

auxtype — Real — declared in segment 10 at 00082050 ^ 

♦ 00834100* 2 1 1 9 i 9 02H9220 02119230 

p AVAIL — DEFINE « DECLARED IN SEGMENT 10 AT 00125000 ,- 

w 00967000 01026000 ^ 

AVAIL •• STREAM LABEL -- DECLARED IN SEGMENT 60 AT 01H5800 — OCCURS AT 01118600 " 



c 



♦00997000* 01035000 01055000 

AVAILN — INTEGER -■ DFCLARED IN SEGMENT 56 AT 00949000 p 

♦00995000* 01033000 01053000 " 

AVAILT "• INTEGER " DECLARED IN SEGMENT 56 AT 00949000 

♦00996000* 01034000 01054000 p 

AVAUNK -• BOOLEAN « DFCLARED IN SEGMENT lO AT 00559100 

00594000 00644400 *01151800**01152100* " ~" ' 

AVALNKOK -« BOOLEAN — DECLARED IN SEGMENT iO AT 00498000 p 

"" +00978000* 00989000 +00991000++00992000++0 IO26OOO* 01032000 *0l037000* 01051000 *0 l052000^+021204 10* 02141000 

AVL -- FORMAT — DECLARED IN SEGMENT 57 AT 00960000 

O 01057000 r 

AVLBAO — FORMAT — DECLARED IN SEGMENT 57 AT 00959000 

01056000 " 

avtabLe ■• dff? n f *" dfcLaRfd ?n segment iO at 00164150 p 

B mm DEFINE •- DECLARED IN SEGMENT lO AT 00n3l60 

0it5l000 O11515OO 0H67000 0i469500 01469700 
p) B -- STREAM VARIABLE -« NAME PARAMETER •- DECLARED IN SEGMENT 19 AT 00319000 p 

OO32OOOO v - 

B .- STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 00395000 

C) 00396000 00398000 p 

^ B -• STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 29 AT 00586000 

B *- REAL •- DECLARED IN SEGMENT 41 AT 00763140 - ■ - - - 

p) ♦00763505+ 00763510 +00763525* 00763530 *00763535* 00763540 +00763595* 00763600 00763605 *00763610* 00763615 p 

w b — strfaM variable — value parameter -- declared in segment hi at 00763190 

00763200 
p B — STREAM VARlABLF " NaMf PARAMETER — DECLARED IN SEGMENT 44 AT 00763300 p 

^ 00763305 



o 



u 



O 00763410 00763420 C 

B — STREAM VARIABLE — NAME PARAMETER -. DECLARED IN SEGMENT 45 AT 00763385 

00763390 ~ 

Q B -- BOOLEAN -- DECLARED IN SEGMENT 46 AT 00771000 f 

*00796000* 00787000 
B -- STREAM VARIABLE — DECLARED IN SEGMENT 47 AT 00807170 
p *00807210* 00807230 Q 

B -- BOOLEAN — DECLARED IN SEGMENT 56 AT 01068000 
*01082000* 01095000 
Q B — ROOLFAN — VALUF PARAMFTER *• DECLaRfD IN SEGMENT 10 AT 01252000 f 

01259500 

B — BOOLFAN • «• DECLARFD IN SEGMENT 79 AT 0i757330 

*0i7577iO* 01757740 0i757750 01757770 f 

B -- STREAM VARIABLE -- VALUE PARAMETER .- DECLARED IN SEGMENT 82 AT 01765000 
:. --•■-■ 01766000 01768000 

IIQ B — BOOLEAN — VALUE PARAMETER — DECLARED IN SEGMENT 82 AT 01814500 Q 

01811000 01812000 01816000 
BAD -- STREAM LABEL -- DECLARED IN SEGMENT 46 AT 00771105 -- OCCURS AT 00771140 
:Q 00771130 C 

■| BAD -• LABEb -- DECLARED IN SEGMENT 52 AT 00875000 -• OCCURS AT 00894000 

,, 00885000 00887P00 00889000 00892000 

: =0 BAD "" FORMAT — DFrLARED IN SEGMENT 57 AT 00957000 C 

01051000 01060000 
BADBED — FORMAT — DECLARED IN SEGMENT 23 AT 00446000 
O 00773000 £ 

BADCLOCK — FORMAT — DECLARED IN SEGMENT 24 AT 00449000 

00797000 ~ 

f\ BADCOMMENT -• BOOLEAN — DECLARED IN SeGMfNT 10 AT 00808000 r 

^ *0082AOOO**00824220**00836000**02120435* 02130000 

BADDATE •» FORMAT — DECLARED IN SEGMENT 2ft AT 00447000 

r\ 00775000 r 

BADEOf -- FORMAT — DECLARED IN SEGMENT 5l aT 00814000 

00866000 

BADlNTO — FORMAT -- DECLARED IN SEGMENT 67 AT O12881OO r 

01310100 

BADLOC — FORMAT — DECLARED In SEGMENT 64 AT 01257100 

O 01280300 r 

^ BADlQUE mm FORMAT -- DECLARED IN SEGMENT 84 AT 01774120 

02117550 "" 

q badlquenTry -- format — declared in segment 84 at 01774110 , c 

^ 02117520 

BADPRlMARY -- FORMAT — DECLARED IN SEGMENT 57 AT 00958000 

Q 00999100 01007000 01022000 f 

BADPRT "" FORMAT — DECLARED IN SEGMENT 38 AT 00741000 

00 7 4 7000 .-.--- . 

O BADPRT — FORMAT — • DECLARED IN SEGMENT 53 AT 00879000 f 

^ 00894000 

BADSAVEPRTLOC « INTEGER -" DECLARED IN SfGMENT 10 AT 01251500 
O 01280300 *02120215* f 

BAPSDESC -• FORMAT — DECLARED IN SEGMENT 76 AT 01536000 
01689000 
O BADSIZE — FORMAT « DECLARED IN SEGMENT 76 AT 01535000 " f 

^ 01689000 

BADTM — LABEL -« • DfCLaRED IN SEGMENT 50 aT 00813000 -- OCCURS AT 00866000 

f) 00824210 00826990 00827000 f 

BADXCLOcK -- FORMAT — DECLARED IN SEGMENT 24 AT 00448000 
00781000 
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C -- INTEGER •- DECLARED IN SEGMENT 79 AT 01757332 
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O' BAS E *" INTEGER • «■ VALUE PARAMETER -- DfClARED IN SEGMENT 2 AT 00043000 

OOO41OOO OOO42OOO 00054000 OOO57OOO OOO58OOO 
BED -- DFFINE -- DECLARED In SEGMENT 10 AT 00129000 
O 007?0000 01076000 

BEDDED « BOOLEAN -- DECLARED IN SEGMENT 60 AT 0U01000 

♦ 0H94000* 01195000 *OH96000* 01199000 - " 

O BEDSTK — INTEGER -• DECLARED IN SEGMENT 10 AT 00095000 

*01087000* OIO880OO 01089000 01195000 01383000 01714000 01715000 01737000 01738000 *02120240* 

BITON -- BOOLEAN STREAM PROCEDURE "" DFCLaRfD IN SEGMENT 10 AT 00395000 - " 

Q *00400000* 00401000 00411000 

BITON -- qOOLFAN STRfaM PROCEDURE — DECLaRfD IN SEGMENT 82 AT 01765000 L 

*0i770000* 01862000 0l9i4000 0i924000 01961000 0i964000 01967000 - - 

O BLINE •» REAL ARRAY •- DECLARED IN SEGMENT 10 AT 00559050 

00644400 00644500 
BLINE *- STREAM VARIABLE — NAME PARAMETER •• DECLARED IN SEGMENT 29 AT 00586100 
O 00586110 

BOS •- INTEGER -- DFCLARED IN SEGMENT 70 AT 01357000 

*01377000* 01378Q00 *01379000* 01391000 01401000 01404000 01405000 01412000 01418500*01454000**01455000* 

O 01456000 *01457000* 01457140 01458000 01465400 01466000 

BREAKOUT — DEFINE "- DECLARED IN SEGMENT iO AT 00097000 L 

buf — Real array •• dfcLaRfd in segment a at 00047000 - 

Q 00053000 00054000 00058000 00059000 

BUfLD • • STREAM PROCEnURF •- DECLARED iN SEGMENT 29 AT 00576000 

00585000 00640000 00643000 

O BUlLDHEADER -- STREAM PROCEDURE -- DECLARED IN SEGMENT 60 AT 0H15300 C 

01121900 0H51/I00 0H68600 OH69100 01169400 

BUMPl — DEFINE -- DECLARED IN SEGMENT 41 AT 00763150 - - 

O 00763415 00763515 00763560 r 

BUSTCOMMON -• PROCEDURE -- DECLARED IN SEGMENT 2 AT 00040100 L 

00040300 00061000 

O B6500L0AD — DEFINE — DECLARED IN SEGMENT 10 AT 00110200 

C "" STREAM VARIABLE — VALUE PARAMETER •- DECLARED IN SEGMENT 6 AT 00040150 

00040160 - -- 

O C "* STR ^AM VARIABLE -* VALUE PARAMETER — DECLARED IN SEGMENT 6 AT 00040t70 

000^0180 
C *- INTEGER -• DECLARED IN SEGMENT 32 AT 00674000 ______ 

O *00675000* 00679000 

C ■»• INTEGER — DECLARED IN SEGMENT 33 AT 00688000 
♦00689000* 00692000 
Q C mm STREAM VARIABLE »- VALUE PARAMETER — DECLARED IN SEGMENT 41 AT 00763190 

C -- REAL — DECLARFD IN SEGMENT 45 AT 00763380 L - 

♦00763410* 00763415 •- - 

O c "■ STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 46 AT 0O77H00 r 

00771115 <~ 

C — STREAM VARIABLE — VALUE PARAMETER *• DECLARED IN SEGMENT 10 AT 01325000 
Q 0i3?6000 01330000 

C -- INTEGER -• NAMF PARAMETER — DECLARED IN SEGMENT 10 AT 01352000 l ~ 

01351000 

Q C -- FORMAT -- DECLARED In SEGMENT 71 AT 01370010 r 

01446000 *~ 

C — STREAM VARIABLE -- VALUE PARAMETER ,-- DECLARED In SEGMENT 70 AT 01370020 

O 01370030 01370170 r 

C -" INTEGER — NaMf PARAMETER — DECLARED IN SEGMENT 10 AT 01514000 ^ 

01512000 *01517000* - - — 

Q C "- INTFGER — DECLARED IN SEGMENT 74 AT 01522000 r 

01592000 01593000 01597000 01601000 01606000 01607000 ^ 
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♦01757410* 01757600 

INTEGER — DECLARED IN SEGMENT 62 AT 01758300 C 
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*02U7500* 02117510 02H7520 02117540 
CC -» REAL ARRAY — DECLARED IN SEGMENT 4l AT 00763160 

00763515 
CC -• REAL ARRAY "" NAME PARAMETER mm DFCLARED IN SEGMENT 41 AT 00763290 

♦00763330* 00763345 
CCMaSKI ••- DEFINE — DFC.LARFD IN SEGMENT 10 AT 00164360 C 

01757450 
CCMASK2 -- DEFINE -• DFCLaRfD IN SEGMENT 1© AT 00164365 
O 01757455 

"~ CD "- DEFINE — DECLARFD IN SEGMENT 70 AT Oj 363000 

01406000 01413000 
CF -- DEFINE »» DECLARED IN SEGmEnT 10 AT 00116000 C 

00^9000 00662000 00665000 00744000 00763036 00763450 00807350 00807370 00863120 00918000 00919000 
00928000 00929000 00967140 00967150 00972000 00972400 00976100 00976300 00984000 00985000 00988000 
r , 0l0f4000 01036000 01044000 0l056000 01079000 01127000 01134000 0H36000 01149000 0H64100 01167200 £ 

^ OH67700 0U68600 OH68700 01169000 01169200 0U69500 0H69550 0n97000 01242000 0i243000 01262000 

01270000 01272000 01273000 0i28i620 01281640 0i28i650 O128166O 0i28i760 01295000 01298000 0l299i00 
p> 01300000 0i30i000 01304000 Oi3l6000 0l3i9000 0i342000 01345000 t 349570 01349640 0i375000 01396000 Q 

w 01439000 01444000 O1448OOO 0i465400 01465600 0i466000 01466300 0j467700 O14683OO 0i468450 01469800 

0i5j7000 01541000 0i557000 0i609i00 0l6i3000 O1623OOO 01627000 Oi63jO00 01643000 01677000 01663000 

01684000 01712000 0l7l8000 01757505 01757845 01757870 01757895 01757960 01821000 01973000 02006000 r 

02007000 02129H0 02129140 02149400 
CHaNNfL « DEFINE — DECLARED IN SEGMENT 10 AT 00140000 

02117100 
CHECKFORLARFLDESCRIPTOR -- DEFINE — DECLARED IN SEGMENT 52 AT 00876000 
00885000 00887000 00889000 00892000 
n CHECKFORPROGRAMnESCRlPToR •" DEFINE "" DEcLftRED IN SEGMENT 52 AT 00878000 C 

^ 00892000 

CHECKLINK -- DEFINE -- DECLARED IN SEGMENT lO AT 00098000 
~> CHECKMEMORYLINKS -- PROCEDURE — DECLARED IN SEGMENT 10 AT 00944000 £ 

02125000 
CHECKPRTFILF -" PROCEDURF — DECLARED IN SEGMENT 10 AT 00870000 

00895000 00907000 
CHRS -- REAL STREAM PROCEDURE — DECLARED In SEGMENT 10 AT 00536000 

00541000 00543000 00547000 00551000 00689000 00692000 01516000 0i5l7000 
CIDROw « DEFINE — ■ DECLARED IN SEGMENT 10 AT 00164285 C 

CL — INTFGER — DECLARED IN SFGMeNt 74 AT 01529000 
CLOCK -- DEFINE -" DECLARED IN SEGMENT lO AT 00415000 

00796000 00799000 Q 

CLOCX -- DEFINE — DECLARED IN SEGMENT lO AT 00432000 
00799000 00800000 OOSOlOOO OO8O3OOO 
-n CODE — INTEGER •«• VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT 01757310 Q 

W 01757300 0l757al0 *0i7574l5* 0i757420 01757550 

COL — DEFINE -- DECLARED In SEGMENT 10 AT 00119000 
^ 00547000 00551000 00606000 00608000 00615000 00617000 00640000 00641000 00643000 00675000 00689000 C 

^ 00763595 00774000 00777000 00780000 00783000 00796000 00799000 01149000 01516000 01517000 01559000 

01561000 01757600 01757875 01978000 O2O38OOO 02040000 02129180 
O COLhDR — FORMAT — DFCLARFD IN SEGMENT 92 AT 02119500 Q 

02173600 
COLiNf « FORMAT -- DFCLARED IN SEGMENT 9? aT 02119510 
r, 02173630 C 

COLLATE -- REAL ARRAY — DECLARED IN SEGMENT lO AT 02119600 
*02173500* 02173640 
Q COMINFO — SWITCH FORMAT — DECLARED IN SEGMENT 4 AT 00017030 C 

00017200 
COMMON -- BOOLEAN — DECLARED IN SEGMENT 2 AT 00003900 
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O ' 00040230 00040240 00064000 00590000 00591000 00592000 00772000 00785700 00794000 00795000 008o728o C 

♦ 00807290* 00807350 *008o7430* 00807520 *00837055* 00839000 00854000 *Oo904500* 00905000 00908000 00910000 v "" 
00920100 00930i00 00937500 00938000 01151100 0il5l900 OJ152000 0H64900 0l2l0000 0l2ll000 01213300 " 

q 0i28l720 O128178O 0i28l835 0i28i855 01757770 0^57840 0i856l00 *0i856200**021 181OO* 0?ij9244 *02n9245* p 

02119250 *02ll9255* 02122050 02122100 02123000 02129050 02i37i00 02138000 02142000 02142300 02143000 
02144000 02148000 02149000 02149100 02149200 02149300 02149400 O216OOOO 02165000 02165100 *02l65l30* " 

p 02166000 *02173798* p 

COMMT — REAL ARRAY -- DECKED IN SEGMENT tO AT 00717000 U 

00824210 00835000 00835100 00837050 02132000 02133000 02134000 " 

Q COMMT •- STREAM VARIABLE -• NAME PARAMETER •«• DECLARED IN SEGMENT 50 AT 00822100 p 

00822120 
COMNT -- BOOLEAN •-- DECLARED IN SEGMENT 10 AT 00717000 " ~ 

♦00824000**00837000* 02128000 
COMNTPAR — FORMAT — DECLARED IN SEGMENT 49 AT 00809000 
02130000 
q COMPAREWORnS — BOOLEAN STREAM PROCEDURE — DECLARED IN SEGMENT 10 AT 00560000 

♦00567000* 00619000 
■ COMSAVE -- BOOLEAN • » DECLARED IN SEGMENT 47 AT 00807140 

Q *00807280* 00607«30 

i COMSAVE »- BOOLEAN -« DECLARED IN SEGMENT 82 AT 01758500 

I *01856100* 02118100 

; q COMSAVE — BOOLEAN -» DECLARED IN SEGMENT 88 AT 02119142 

♦ 02H9244* 02119255 ^ 
CONTROLDESC — BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 10 AT 00705000 

O *007H000* 00714000 00863110 01164300 01164500 01166300 01166400 01402000 01406000 01465400 01466100 p 

^ 01467700 01609100 ^ 

CONv — STREAM PROCEDllRF "" DECLARED IN SFGMENT 27 AT 00469000 

00479000 
CONVERTtT — DEFINE -- DECLARED IN SEGMENT lO AT 0i3490t0 

O134923O 0i349p70 O13493OO 

q core «•- define -- declared in segment 10 at 00164370 

00967100 00967120 00967130 00967180 

CTABLE *- DEFINE — DECLARED IN SEGMENT 10 AT 00164200 - 

rs CTC -« DEFINE -- DECLARED In SEGMENT 10 AT 00117100 p 

01757415 
CTF — DEFINE — DECLARED IN SEGMENT 10 AT 00117000 " - . . 

O 01266000 01299100 01742140 01985300 

CUTBACK — LABEL — DECLARED IN SEGMENT 70 AT 01362000 — OCCURS AT 01404000 

01414000 

O D •• STREAM VARIABLE -- NAME PARAMETER »* DECLARED IN SEGMENT 2 AT 00036000 p 

00037000 

D -- REAL •- DECLARrD IN SEGMENT 6 AT OOO4O12O 

Q *00040230* 00040240 

D ■«- STREAM VARIABLE « VALUE PARAMETER — DECLARED IN SEGMENT 6 AT 00040?00 

00040210 _ 

Q D -- REAL »- DECLARFD IN SEGMENT 27 AT OO466OOO p> 

00479000 00482000 *00486000* 00489000 *00492000* 00493000 

D -- STRFAM VARIABLE -- NaMe PARAMETER — DECLARED IN SEGMENT 10 AT 00560000 - - - 

Q 00564000 p 

d -- stream variable -• value Parameter — declared in segment 4i at 00763190 ^ 

— STREAM VARIABLE -• NAME PARAMETER -- DECLARED IN SEGMENT 50 AT 00818000 - - 

q OO82OOOO ( - 

W D -• STREAM VARIABLE •- NAME PARAMETER -• DECLARED IN SEGMENT 62 AT 01231000 ^ 

01234000 
q D -- STREAM VARIABLE -- NAME PARAMETER -• DECLARED JN SEGMENT 10 AT 01325000 p 

01329000 
" D — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 10 AT 01750000 "" 
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O ! 01754000 r 

DALOC -■ DEFINE •■ DECLARED IN SEGMENT 10 AT 00164180 

DASHES ■- FORMAT •- DFCLARED IN SEGMENT 55 AT 00901000 ... - 

O. 00922000 r 

DAT -" STREAM VARIABLE — VALUE PARAMETER -• DECLARED IN SEGMENT 27 AT 00469000 

00470000 00472000 

O DATACOM -- DEFINE ■• DECLARfD IN SEGMENT lO AT 00099000 

0H23000 0i985i00 ^ 

DATE — DEFINE — DFCLARED IN SEGMENT lO AT 00414000 

Q 00495000 00774000 00777000 r 

DATEANALYZED <"• DEFINE "" DECLARED IN SEGmEnT 10 AT 00421000 

00791000 00793000 - -- 

"'O daTeS "" PROCEDURE — DECLARED IN SEGMENT 10 AT 00461000 r 

00778000 00791000 - 

DATETAKEN — DFFlNE — DECLARED IN SEGMENT lO AT 00423000 " " " 

.Q 00778000 00788000 r 

DATlME — PROCEDURE . -- DECLARED IN SEGMENT jO AT 00770000 

00908000 00937000 " " 

"Q DATX -- DEFINE « DECLARED IN SEGMENT \0 AT 00430000 r 

00777000 00778000 

DAY mm INTEGER •- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 00464000 " "" " """" 

O 00461000 *00493000* f 

DAY mm STREAM VARIABLE — NAME PARAMETER — DECLARED IN SEGMENT 27 AT 00469000 
00475000 
Q DAYS -- DEFINE *• DFCLARED IN SEGMENT 10 aT 00428000 r 

00778000 00788000 00791000 00793000 

daytabLe *- Real aRRay — declared in segment 27 at 00468000 

Q *0047700O* 00489000 00493000 

^ DBARRAY « DEFINE -- DECLaRfD IN SEGMENT lO AT 00164220 

DBLSAVE -* BOOLEAN ». DECLARED IN SEGMENT 47 AT 00807140 - 

O *00807295* 00807435 r 

^ DC -- DEFINE — DECLARED IN SEGMENT 60 AT OiHOOOO ^ 

0lt?5000 - ..-..._ 

Q DCHIT -- BOOLEAN »• DECLARED IN SEGMENT 60 AT 01109000 r 

^ *OH46000**01164?00* 01168300 01202000 ^ 
DCLOG -• DEFINE -» DECLARED IN SEGMENT 10 AT OOlOOOOO 

q DCQARA -- DEFINE — DECLARED IN SEGMENT 10 AT 00164250 r 

DCQPTSTACK — DEFINE — DECLARED IN SEGMENT 10 AT 00163000 ' ^ 

DCQPTSTACK — REAL — DFCLARED IN SEGMENT 60 AT 01108000 

q 0H25000 OH31000 r 

w dcoptstackv -• real -- declared in segment 60 at onoaooo ^- 

OH25000 0U26000 *0n27000* 0U28000 0ii?9000 0H64200 ..-.._-.. . ._ 

Q DCSPO -- DEFINE -- DECLARED IN SEGMENT 10 AT OOlOlOOO r 

DCSTACK — BOOLEAN -• DECLARED IN SEGMENT 60 AT 0H09000 

♦01195000*01168300 01202000 

Q DCV -- DEFINE — » DECLARED In SEGMENT 60 AT 01110000 r 

01125000 01126000 01127000 01128000 01129000 01164200 

DC19Q •- DEFINE — DECLARED IN 5EGMENT 10 AT 00164325 ~ " 

Q 01985200 r 

DEBUGGING — DEFINE — DECLARED IN SEGMENT 10 AT 00102000 

DECOCT •• STREAM PROCFDURE — DECLARED IN SEGMENT 6 AT 00040200 ~ "— 

O 00040240 r~ 

DEFINeDMIXMaX mm DEFINE »- DECLARED IN SEGMENT lO AT 00120000 

00746000 — 

Q DELTA — DEFINE — DECLARED IN SEGMENT 70 AT O1364OOO r- 

01408000 U 

DESCRIPTOR -- BOOLEAN PROCEDURE -» DECLARED IN SEGMENT 10 AT 00683000 " — 
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Q- *0069l000* 00694000 00701000 00711000 00885000 00887000 00889000 00892000 01081000 01260000 01268000 C 

01281610 01292000 01*68200 01*68400 01469500 01540000 01556000 01612000 01711000 0l8l8000 
DFX -• DFFINF -* DFrtARFD IN SFGMeNj 10 AT 00103000 
;-) 00807550 02117)55 C 

DIRfCTORYBUtLDER -- DFFINF — DECLARED IN SfGMENT lO aT OO162OOO 
00891000 
O DIRECTORYFREE •- DEFINE — DECLARED IN SEGMENT i0 AT 00)64300 C 

DISK •- FIL.E -• DECLARED IN SEGMENT 2 AT 00016500 

00053000 00067000 00763145 00844000 00849000 00849100 
r\ DISKLOG — DEFINE -• DECLARED IN SEGMENT 10 AT 00104000 C 

^ DISKOUNT — DEFINE -- DECLARED IN SEGMENT 10 AT 00164380 

02117150 
~rs DISPLAY «■«" DEFINE "" DECLARED IN SEGMENT 10 AT 00668100 C 

^ 00720000 00721000 00722000 00723000 00724000 00725000 00726000 00727000 00728000 00729000 00730000 

00763028 00763470 00807270 00964000 00965000 00966000 00967000 00967180 01279000 01281850 01310000 

-, 01723000 01733000 01757434 01757436 01757440 01757450 01757455 01757470 O1816OOO 01857000 01918200 Q 

'^ 0191.9200 01920000 01971000 01987000 01988000 02064500 02065000 02117150 021l7l60 02117430 

DISPLaYtT -- PROceDURf -" DECLARED IN SEGMENT 10 AT 00653000 
" C) 00668000 00720000 00721000 00722000 00723000 00724000 00725000 00726000 00727000 00728000 00729000 Q 

■ 00730000 00763028 00763470 00807270 00807370 00964000 00965000 00966000 00967000 00967180 01279000 

■-, 01281850 01310000 01723000 01733000 01757434 01757436 01757440 01757450 01757455 01757470 01816000 

01857000 01918200 01919200 01920000 01971000 01987000 01988000 0?064500 02065000 02117150 02117160 C 

02117430 

d ontdumprt — oeftNf -• dfclaRfd in segment 2 at 00009000 

r\ 00904500 00908000 009i0000 00920100 00930100 Q 

DONTPRINTLTNKS -» BOOLEAN -« DECLARED IN SEGMENT 2 AT 00018000 
00644310 *02i42260**02H3lOO**02l50075* 
O DOUBLESPACE — DEFINE «•- DECLARED IN SeGMfNT 2 AT 00004200 C 

w 00622000 00645000 00807295 OO8O73OO 00807435 

DP -- STREAM VARIABLE -- VAlUE PARAMETER — DECLARED IN SEGMENT 10 AT 013?5000 
O 01326000 01329000 C 

w DUMMY -» DEFINE •• DECLARED IN SEGMENT lO AT 00164999 

OUMPAt.PHAOCTAL — DEFINE -- DECLARED In SeGmENT 2 AT 00011000 
r\ 00591000 C 

^ DUMPALPHAONLY •- DEFINE — DECLARED IN SEGMENT 2 AT 00012000 

00590000 
r\ DUMPARRAY -• PROCEDURF — DECLARED IN SEGMENT 10 AT 00763020 C 

w 00763048 01919100 

DUMPAUXMEM — PROCEDURE •» DECLARED IN SEfiMpNT 10 AT 02119100 

02U9290 02172200 Q 

DUMPAVAlL -- DEFINE «- DECLARED IN SEGMENT 2 AT 00005000 
01151900 
/-) DUMPCeSSPOOl — PROCEDURE — DECLARED IN SEGMENT lO AT 00763100 Q 

^ 00807899 02122300 

DUMPCESSPOOLONLY -• DEFINE -- DECLARED IN SEGMENT 2 AT 00013000 
p. 00904500 00937500 02122100 C 

w DUMPCONTROLSTACKS — PROCEDURE -- DECLARED IN SEGMENT 10 AT 01700000 

02172000 
O DUMPd — TNTEGER ** DECLARED IN SEGMENT 10 aT 02120000 C 

*02120245**02145000**02147000**02152000**02156000* 02160000 *02l6l000* 02165000 
DUMPIT "- LAREL — DECLARED IN SEGMENT 70 AT 01360100 -- OCCURS AT 01457100 

r, oi38iioo C 

DUMPMcPlNFO -«• PROCEDURE -- DECLARED IN SfGMENT 10 AT 01758000 

02169000 
DUMPMCPSAVECODE « PROCEDURE « DECLARED IN SEGMENT 10 AT 01281500 — FORWARD AT 01096500 Q 

01213100 01281910 O215OO1O 
DUMPMCPSPRT — PROCEDURE — DECLARED IN SEGMENT 10 AT 00896000 
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Q i 02122000 

DUMPMfMORYANDNOTESTACKS « PROCEDURE -* DECLARED IN SEGMENT 10 AT 01097000 

02152000 02156000 02161000 

O DUMPOcTaLONLY -- DEFINE -" DECLARED IN SEGMENT 2 AT OOOlOOOO 

w 00592000 

DUMPP — DEEINE -» DECLARED IN SEGMENT 10 AT 00i05000 " 

Q DUMPRoGRAMS •- PROCEDURE — DECLARED IN SEGMENT iO AT 0i520000 ( 

02171000 

DUMPSTACK — PROCEDURE »- DECLARED IN SEGMENT 10 AT 01353000 

O 01696000 01708000 01726000 01734000 017<|0000 01742160 

DUMPTABLES -- DEFINE -* DECLARED IN SEGMENT 2 AT 00008000 

00807520 " 

O DUPBED — FORMAT •• DECLARED IN SEGMENT 59 AT 01069000 

01084000 
^ D32 -- STREAM VARIABLf — VaLUe PaRA m ETER — DECLARED IN SEGMENT 62 AT 01231000 

2Q 01232000 01235000 

E — STREAM VARIABLF — NaMf PARAMETER — DECLARED IN SEGMENT 41 AT 00763190 

'■I 00763195 ~ 

•]Q EDITLINE — LABEL «"- DECLARED IN SEGMENT 2$ AT 00589100 -• OCCURS AT 00637100 

i OO61O1OO 

■■ EF -« LABEL -<• DECLARED IN SEGMENT 50 AT 008120i0 - 

■■■Q EOJ p- LABEL -■ DECLARED IN SEGMENT 41 AT 00763165 -- OCCURS AT 00763570 f 

Q0763455 00763480 00763495 00763505 ^ 

EOPROG — LABEL •• DECLARED IN SEGMENT 10 AT 00080400 -- OCCURS AT 02173400 
r\ 00866000 00867000 00868000 02122400 

EOT — UareL — DECLARED IN SEGMENT 50 AT 00812005 — OCCURS AT 00838000 
00835000 00837100 

r\ ERRMESS -- DEFINE — DFCLaReD IN SEGMENT 52 AT 00881000 r 

w 00893000 00894000 

ERROWT -- LABEL »- DECLARED IN SEGMENT 70 AT O136OOOO -- OCCURS AT 01510000 ~ 

O 01381000 r 

ESP -- INTEGER -- DFCLARED IN SEGMENT 10 AT 01222000 ^ 

♦01262000* 01263000 01266000 01270000 01281620 *02120210* 02150010 

O ESPBIT — DEFINE ■• DECLARED IN SEGMENT 10 AT 00124000 

01260000 01264000 01281620 
EUIO — DEFINE "• DFCLARED IN SEGMENT 10 A T 00164130 " 

O E uo "" DEFINE — DECLARED IN SEGMENT 10 AT 00164280 

00807550 02117200 

EUW — DEFINE *- DECLARED IN SEGMENT 10 AT 00164390 

O 02H7160 

EXIT -- LABEL •- DECLARED IN SEGMENT 54 AT 00904100 — OCCURS AT 00931100 

00920100 00930i00 

O EXtT — LABEL -- DECLARED IN SEGMENT 68 AT 01338000 — OCCURS AT 01348000 r 

01346000 ^ 

EXIT — STREAM LABEL *- DECLARED IN SEGMENT 10 AT 01349160 •• OCCURS AT 0i349470 " " ~ — 

Q 01349370 01349374 01349460 r 

^ EXIT — STREAM LABEL — DECLARED IN SEGMENT 10 A T 01753000 — OCCURS AT 0(757000 

01755000 
Q EXIT — LABEL — DECLARED IN SEGMENT 88 AT 02119140 — OCCURS AT 02119280 r 

02H9160 

EXIT — LABEL -- DECLARED IN SEGMENT 93 AT 02120130 -- OCCURS AT 02120700 

O 02120135 r 

^ EXPAND — STREAM PROCEDURE — DECLARED IN SEGMENT 29 AT 00586100 

00586140 OO6444OO 

O F — FORMAT -- DECLARED IN SEGMENT 7 AT 00040140 C 

00040270 
F "- FORMAT — DECLARED IN SEGMENT 40 AT 00763026 

o c 



c 



■'U 



O' - ^ 

Ci C 

O . 00763042 f 

F •- FORMAT — DECLARED IN SEGMENT 55 AT 00902000 

00935000 . . ... 

r\ F -" FORMAT — DECLARED IN SEGMENT 64 aT 01258000 r 

^ 01277000 

F -- FORMAT — DECLARED IN SEGMENT 67 AT 01289000 - 

O 01311000 r 

F -» INTEGER -- NAME PARAMETER -- DECLARED IN SEGMENT 10 AT 01352000 
01351000 
O f •" STREAM VARIABLE — VALUE PARAMETER — DECLARED In SEGMENT 70 AT 01370020 r 

01370030 01370120 

f -" stream variable — value parameter — declared in segment 70 at 01370260 

01370270 01370350 f 

F -• INTEGER -• NaMf PARAMETER — DECLARED IN SEGMENT 10 AT 01514000 

01512000 *0l5i7o00**0l5l8000* 

O F -- INTEGER -» DECLARED IN SEGMENT 74 AT 01522000 (~ 

01576000 01577000 01580000 01584000 01588000 01592000 01593000 0i597000 01601000 01602000 
FA -- REAL — DECLARED IN SEGMENT 82 AT 01773000 
Q 02069000 02112000 02113000 02117450 02H7460 02117490 ( 

FANAL — FORMAT -" DECLARED IN SEGMENT 22 AT 00444400 

00785550 

q FC0MVAL — FORMAT "* DECLARED IN SEGMENT 22 AT 00444300 r 

00785700 ^ 

FCORE -" FORMAT -" DECLARED IN SEGMENT 57 AT 00956100 

Q 00967120 f 

FF -» DEFINE — DECLARFD IN. SEGMENT 10 AT 00115000 

00327000 00329000 00666000 00863120 00918000 00919000 00928000 00929000 00967150 00971000 00972400 " " - 

f) 00982000 00996000 00997000 O1O15OOO OIO18OOO 01030000 01047000 01048000 01059000 01090000 01135000 r 

w 01151500 01164000 01164400 OH646OO 0H66300 OH66500 O11686OO 0n69i00 01198000 0i28l660 01281855 

01281860 01302000 01317000 01320000 01342000 01349580 01349650 01377000 01396000 01404000 01449000 
q 01465400 01465500 01466000 01468300 01468400 0l5l8000 01609200 O16I8OOO 01628000 01643000 01682000 f 

^ 01683000 01664000 01684100 01695000 01721000 01757410 01984000 02008000 02149400 

FF — STRFAM PROcfDURf -" DfcL A RED IN SEGMENT 44 AT 00763300 ■ — 

p 00763320 00763345 r 

FlLFTYPF — DEFINf •• DECLARED iN SEGMENT 10 AT 00082330 

00785600 00834070 OO834O8O 00834200 " 

O FILLAREATYPE -» PROCEnURF — DECLARED tN SEGMENT 10 AT 00295120 r 

02120920 
FlLLlNFO -- PROCEDURE -- DECLARED IN SEGMENT 10 AT OO165OOO - .— 

O 00357000 f 

FlLLXNAMS -« STREAM PROCEDURE — DECLARED In SEGMENT 12 AT 00248000 

00269000 00291000 - - — 

Q FlNALoUE — DEFINE -- DECLARED IN SEGMENT lo AT 00141000 r 

02069000 

FIN! -" FORMAT -- DFCLARED IN SEGMENT 5 AT 00023000 ~ 

Q 02173793 02176000 r 

FIRST •- BOOLEAN •• DECLARED IN SEGMENT 29 AT 00587000 

♦ 00597000* 00604000 *006ll000* 00644100 *00644300* — - 

O FIRSTWAIT -• DFFINE «■• DECLARED IN SEGMENT lO AT 00149000 r 

FIX -• STREAM LABEL •• DECLARED IN SEGMENT 46 AT 00771105 -» OCCURS AT 00771145 

0077H35 0077H40 — 

r\ FIXDEFINES -- PROCEDURE -- DECLARED IN SEGMENT 1O AT OO341OOO r 

^ ^ 00862000 ^~ 

FIXFId mm PROCEDURE -- DECLARED IN SEGMENT )0 AT 02119300 
Q 02173780 /" 

FIXLINE -- STREAM PROCEDURE — DECLARED IN SEGMENT 47 AT 00807160 ^ 

00807250 00807380 ■- ■' " — 



u 



e 



J 



L 
C 



O i flag — label — declared in segment 5o at 00813000 -- occurs at 00868000 C 

00828000 
FLAG -• BOOLEAN -• DECLARED IN SEGMENT 69 AT 01349555 
f) 01349670 *01349680* f 

7 FLAGERR mm FORMAT « DFCLaRfD IN SEGMENT 51 AT 00816000 

00868000 ~ 

Q FLGBIT — BOOLEAN STRFAM PROCEDURE •• DECLARED IN SEGMENT 10 AT 00552000 C 

♦00556000* 00557000 00675000 00774000 00780000 00796000 00828000 
FLL — STREAM PROCEDURE •■ DECLARED IN SEGMENT 41 AT 00763190 
q 00763285 00763510 f 

FLQUE — FORMAT — DECLARED IN SEGMENT 84 AT 01774130 

02117540 ■" 

■n FMXX — FORMAT " DFCLARED IN SEGMENT 22 AT 00436000 r 

^ 00793000 

FMX2 — FORMAT « DFCLARED |N SEGMENT 22 AT 00444000 
; Q 00802000 Q 

FMX3 -- FORMAT -• DFCLARED IN SEGMENT 22 AT 00445000 
00804000 
]q FNEWFiLE — FORMAT -. DECLARED IN SEGMENT 9} AT 02119330 C 

1 0211.9380 

■ FORI — DEFINE — DECLARED IN SEGMENT 29 AT 00573000 

; Q 00608000 00617000 C 

FORMATCODENAME -• STRFAM PROCEDURE »• DECLARED IN SEGMENT 10 AT 01349120 
01349490 01349570 01349610 01349640 01349700 01466300 
O FORMATDFSC — STREAM pROCFDURE — DECL A RED IN SEGMENT 70 AT 01370530 C 

01370930 01468300 
FORMATMSCW -• STREAM PROCEDURE — DECLARED IN SEGMENT 70 AT 01370260 
O 01467900 

w FORMATOP — STREAM PROCEDURE — DECLARED jN SEGMENT 70 AT 01370940 

01469200 ~ "~ - 

f) FORMATPROGDESC -- STREAM PROCEDURE "- DECLARED IN SEGMENT 70 AT 01371110 f 

w 01371430 01470000 

FORMATRCW ««- STREAM PROCEDURE — DECLARED IN SEGMENT 70 AT 01370020 " 

>~\ 01370250 01466700 r 

FOUND — BOOLEAN -- DECLARED IN SEGMENT 68 AT 01337000 
♦01341000* 01348000 
O FPB •- INTEGER •* DFCLARED IN SEGMENT 74 AT 01522000 r 

^ 01580000 

FPU N T -- FORMAT -- DECLARED IN SEGMENT 92 AT 02119505 ...-_.. 

O 02129170 f 

FROM -- INTEGER -• VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 00571000 

00569000 00570000 00597100 *00598000* 00599000 00602000 00606000 00608000 00615000 00617000 00638000 
O 00639000 00640000 00641000 00643000 *00648000* Q 

FROM — STREAM VARIABLE " VALUE PARAM r TER "" DECLARED IN SEGMENT 29 AT 00576000 

00577000 00578000 ' 

O FROM — RfaL •- DECLARFD IN SEGMENT *1 AT 0Q763140 f 

w 00763445 *00763450* 00763580 00763585 #00763590* 00763595 00763600 *00763605* 00763615 

FROM -- RfAL -• VALUF PaRaMfTeR -• DFCLaRfD IN SEGMENT 10 AT 01096500 
Q FROM -- INTEGER -• VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT 01099000 Q 

OiO97000 0^098000 0ji43000 0U49O00 0U51300 0n5l400 0n52000 0^63000 0n64200 0H64300 0H64500 

0H66200 01166^00 01166400 0H670OO OH67iOO 0H67700 0H68000 0u68600 01168700' 0tl69i00 01169200 "" 

Q 0H69400 01169500 01169550 01197000 01198000 01203000 01213100 01213300 *0).2l8000* f 

^ FROM — STREAM VARIABLE — VALUE PARAMETER -* DECLARED IN SEGMENT 60 AT 01115300 

01115500 01116200 

,-) from — real -- value parameter — declared in segment 10 at 01281520 r 

w 01281500 01281510 01281640 Ol28l69o 01281720 *0l28l730* 01281760 01281780 *0l281790* 01281,820 *01281860* 

FS "- DEFINE -- DFCLARFD IN SEGMENT 10 AT 00164210 ' ~ 

o 



( ) 



'r\ 



O ! fs — Real 



O 



O 
O 



O 



u 



H 



H 




[000* 01602000 
- - - - • y ~~ -*-u'awv «i»u7tuu uiOi|3UUU U10?6UUO 

■ DECUaRfd IN SFGMfNT 78 at nl70?nnn 

>ooo 



O HD — FORMAT -- DECLARED IN SEGMENT 7\ AT Ql367000 

01374000 



HD 



- FORMAT »• DECLARED IN SEGMENT 75 AT 0i527000 
01571000 




o?non 2 2?f22 00967, 12 01^57560 0i7S7720 0i7578 l0 
2 02044000 2 054000 02080000 02094000 02101000 

HIT "" OOflzUSo 1 *^* """ D "^ A ^ dUViN SE G MEN T 50 AT 00822H0 - OCCURS AT 00822170 

O HRS "^004^ G 00^*^457^o/ ARAMETER " ° ECUARED IN SEGMENT 10 AT °°« 52000 



v. 



K^™" dfcLarep in segment 82 at 01773000 

02069000 02071000 02109000 

FT "" FORMAT -- DECLARFD IN SEGMENT 84 AT 0^75000 

O 020 ? 6000 -...._ _ 

FTAPDSK — FORMAT — DECLARED IN SEGMENT ?2 AT 00444200 
00785600 
- O FUNNYMSCW .- INTEGER - DEC L ARED IN S E GME N T 70 AT 01357100 

01465500 *0l466fl00* 01467800 
F-l — FORMAT — DECLARED IN SEGMENT 37 AT 00740000 
O 00762000 

GETANDS0RTMCPR0G « DFFINE - DECLARED IN SEGMENT 10 A T 01281400 C 

-:Q GETCOMM0 OOe«260 TR 0063JSSo CDURE "" DEClARED IN SEGM ^T 50 AT 00822100 

:: „ ' rrtJuu 00 "\t2 EF I N F "*" DECLARED IN SEGMENT 10 AT 00336000 ... "" 

° 003 ? H?0 A ' " DECLARED lN SEGMENT 50 AT 008 22H0 - OCCURS AT 00822175 

: Q " GETPRTEN Jo^30lo'" 009MoSo RE "" DECLARE ° IN SEGMENT 10 AT ° 0732000 - --- ^ 

I GET50RTA ^i'^J S TRlNSlCS " PROCEDURE - DECLARED IN SEGMENT 10 AT 01284000 C 

' l O GETSORT A NDLlSTMcPROG i6 -- oo PROCEDURE .. DECLARED IN SEGMENT 10 AT 01252000 

GETSTACKSFROMTHEBED 2i -- oo PRO C EDURE - DECLARED IN SEGMENT 10 AT 01064000 - - 

GUJNK :iotIV£: h oVAi^ii^u - DECURE0 in segment •» at °° 763355 

Q GOTlDFN Ioo;220oS^ E 0^2 S 3; R A % P 03rC RE " ^^ IN 8 "" E " T l9 AT ° 03l900 ° _ 

H — INTEGER — DECLARFD IN SEGMENT 31 AT 00658000 
U 00658600 *0066OQ00* 00662000 

H "" I JII E ^L«"" rt .?"^ RED « I ^? EGMEN I 7G AT 01357000 G 

2000 01465200 



c 



L 



c 



o 
o 
o 



HDR — FORMAT -- DECLARED IN SEGMENT 42 AT 00763110 O 

00763475 

3 HDR — FORMAT — DECLARED IN SEGMENT 55 AT 00898000 

00912000 q 

HIHALf •"» INTEGER PROrFDURF • » nrrl.iRm iu creurur «n .. ""5440OO 

0927000 00967*90 r><7*7KRn n.7cry nn n ,7r7o.« 

o 



HI — FORMAT — DECLARFD IN SEGMENT 75 AT 01528000 O 

01552000 



( \ 



o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



A 

D 



INTEGER -» 
♦00017200* 

INTEGER •• 
♦00051000* 

INTEGER -- 

♦00410000* 
01279000 * 
01344000 
01679000 * 
01961000 

♦02021000* 
02047000 
02094000 

♦02173610* 

INTEGER •" 
♦00293000* 

INTEGER — 
*003?5000* 
INTEGER -» 
♦00358000* 
INTEGER ** 
*00593000** 

INTEGER ** 
*00752000* 

INTEGER •"• 
♦00763040* 

REAL « D 
00763440 
00763580 
INTEGER -- 
♦00763325+ 
REAL -- N 
♦00763415+ 
INTEGER — 
*00786000* 
INTEGER "*• 
♦00807580+ 

jNTegeR •"• 
*008?4ll0** 

00867000 
REAL ■»" D 

00885000 
INTEGER -» 

*01080000* 
INTEGER — 
*0i28t600* 
♦01281865** 
INTEGER mm 
*01349556** 

INTEGER -* 
♦01418530** 

01468200 

INTEGER — 
*01710000** 

Real •- 

02067000 

alp h a arra 

OO36OOOO 



DECLARFD IN SEGMENT 3 A T 00017020 



declarfd 

00054000 * 

declared 

00411000 ♦ 

01297000+ 

01345000 * 

01757500** 

01962000 * 

02023000 

02051000 

02095000 

02173630 

DECLARFD 
00294000 

DECLARED 
00326000 

DECLARED 
00359000 

DECLARED 
00594100* 

DECLARFD 
00753000 

DECLARED 
00763042 
ECLAReD IN 
00763450 

00763585 

DECLARED 
00763330 
AME PaRAME 



IN SEGM 
00057000 

IN SEGM 
01241000 
01298000 
01633000 
01757530 
01963000 
02024000 
02054000 
2098000 
02173640 

IN SEGM 



ENT 8 A 

* 00058 
ENT 10 

* Oi243 
01299 

* 01634 
**Ol757 

* 0i964 
02027 
02057 
02l0i 



T 0004 
000 

AT 000 
000 *0 
100 

000 *o 

950**0 
000 
000 

000 *o 
000 



6000 

81000 

1244000 

1305000 

1637000 

1861000 

1965000 

2032000 

2073000 

2105000 



* 01245000 
♦01313000 

**01665000 

* 01862000 
*0i966000 

02037000 

* 02075000 
02109000 



01248000 +01267000* 01268000 01274000 +01278000+ 



* 01315000 

* 01667000 
+01912000* 

* 01967000 
02038000 
02076000 
02U2000 



01316000 01317000 +01340000* 01342000 

01668000 *01674000* 01676000 01677000 
01914000 01915000 01925000 +01960000* 

0196800 +01972000**0 1982000**0 1985 390* 
02039000 02040000 02041000 02044000 
02077000 02080000 02087000 02091000 

0?H3000 *02120i45**02129l30* 02129150 



ENT 12 AT 00271000 



IN SEGMENT 19 AT 00318000 
00328000 00331000 +00332000 

in segment 20 at 00351000 

00360000 00362000 *00364000 

in segment 29 at oosbsooo 

00594200 +00608000* 00609000 
IN SEGMENT 36 AT 00736000 

00757000 *00762000* 
IN SEGMENT 39 AT 00763024 

SEGMENT 41 AT 00763140 
00763465 OO763485 *00763495 
00763590 *00763595**00763605 

IN SEGMENT 44 AT 00763295 



* 00334000 

♦ 00365000 
♦00617000* 00618000 



00763505 
00763615 



*00763515* 
♦00763620* 



00763535 00763540 00763555 #00763560* 



TER 



DECLARED IN SEGMENT 41 AT 00763375 



DECLARED IN SEGMENT 46 AT 00771000 

00787000 00788000 00790110 00790120 

DECLARED IN SEGMENT 48 A T 00807515 



DECLARED 
00825000**0 

00868000 
ECLARED IN 
00887000 

DECLARED 
01081000 

DECLARFD 
0l28i6l0 
01281890* 

DECLARED 
01349670* 

DECLARED 
O141854O* 

01468300 

DECLARED 
01713000* 

DECLARED IN 
02094000 
Y " DFCL 
00361000 



IN SEGMENT 50 AT 00823000 
0833000**00858000* 00859000 



♦00860000* 00861000 00863110 *00863l20* 00863130 00866000 



SEGMENT 52 AT 00873000 

0889000 00892000 

IN SEGMENT 58 AT O1O66OOO 

1084000 01091000 

IN SEGMENT 65 AT 01281560 

1281620 O128166O *01281680* Oi28i700 0i28l760 0i28l835 0i28i850 0i28i855 01281860 

IN SEGMENT 69 AT 01349550 

1349680 

IN SEGMENT 70 AT 0i357000 

1418560 *0i458000* 01465200 

1468600 01469500 

IN SEGMENT 77 AT 01704000 

1719000 #01724000* 01729000 

SEGMENT 82 AT 01773000 
2095000 
ARfD IN SEGMENT 10 AT 00315 



0i465400 
01731000 
000 



01465500 01465900 01466000 01467700 01467800 



c 
c 

•**■ 

c 
c 
c 
c 
c 



L 

c 

c 

c 

c 
c 



c 



vy 






! ID "" REA L ARRAY •- NAME PARAMETER -- DECLARED IN SEGMENT 10 AT 00316000 

003?9000 ' " l - 

idlengTh -«. integer stream procedure -- declared in segment 20 at 00352000 — 

*00355000* 00359000 

ifo -- format -- declared in segment 85 at 01852000 ( - 

02075000 — 

IGNOREPAR — LABEL — DECLARED IN SEGMENT 50 AT 00813000 — OCCURS AT 00836000 r 

00835000 ( ~ 

IGPAR -- LABEL -- DECLARED IN SEGMENT 50 aT 00812010 -- OCCURS AT 00824220' 

00824210 
ILL -- DEFINE -- DECLARED IN SEGMENT 10 AT 00164330 ( - 

01985300 

IMAX -- INTEGER "- DECLARED IN SEGMENT 66 AT 01286000 
*01294000**01295200* 01296000 01297000 

INAME -- REAL ARRAY •• DECLARED IN SEGMENT 10 AT 00087000 

: ; 00847000 *00860000* 00861000 01169100 01169200 0i3l9000 01320000 01349640 01349650 01643000 r 

1NAMESIZE -- INTEGER -- DECLARED IN SEGMENT 2 AT 00032000 L 

*00064000**00072o00* 00087000 00847000 00857000 01282000 02120650 " 

Q IN A MS — REAL ARRAY — DECL A RED |N SEGM£N T 10 AT 00088000 r 

00848000 01169200 01319000 01349640 01643000 L 

i iNamssize — tntfgfR — declaRfd in segment 2 at 00032000 - 

■■Q *00064000**00073000* 00088000 00848000 

INCOMPAT —. FORMAT -• DECLARED IN SEGMENT 53 AT 00880000 ^ 

00893000 

O INFO — REAL ARRAY -- DECLARED IN SEGMENT 10 AT 0008400Q 

*00i66000* 00359000 00360000 0076 3 415 00763495 00763505 00763515 00763560 00763600 00763615 01699000 L 

02119000 ■-' 

q INFOMASKI — DEFINE — DECLARED IN SEGMENT 10 AT 00164350 

01757436 C 

INF0MASK2 — DEFINE -- DECLARED IN SEGMENT 10 AT 00164355 - 

Q 01757440 

INFOMaX — INTEGER — • DECLARED IN SEGMENT 2 AT 00024000 ^ 

♦ 00078000* 00084000 00358000 - - 

O INIT "" STREAM PROCEDURE 1 "" DECLARED IN SfGMENT 41 AT 00763170 

00763185 00763435 L 

INITIaLiZE -• DEFINE — DECLARED IN SEGMENT 10 A T 00156000 

O INITIALIZE -- PROCEDURE — DECLARED IN SEGMENT 10 AT 02120100 r 

02120705 02120910 L - 

INQUIRY •«• DEFINE -• DECLARED IN SEGMENT iO AT 00106000 - 

O INTCOOE — STREAM LABfL »• DECLARED IN SEGMENT 60 AT 01115800 -- OCCURS AT 01119400 r 

01116900 ^- 

INTMAX — INTEGER " DECLARED IN SEGMENT 2 AT 00024000 . .-. 

O *008570O0* 00860000 01169000 01318000 01642000 

INTR — BOOLEAN — nECLARED IN SEGMENT 60 AT 01104000 L " 

*01135000* 01168900 

O intrinsic «- stRfam label — dfcLaRed in segment 10 at 01349160 — occurs at 01349410 

01349350 ^- 

INTRNSC -• DEFINE — DECLARED JN SEGMENT lO AT 00132000 
O 00723000 OU35000 01292000 OUlOOOO r 

INTSP •- DEFINE •• DECLARED IN SEGMENT 41 AT 00763155 L - 

00763415 00763495 00763505 00763515 00763560 00763600 00763615 

INTSP -■ REAL ARRAY — DECLARED IN SEGMENT 10 AT 01282000 ,- 

♦01299000* 01312000 01315000 01316000 01317000 01349630 01634000 *02120655* U 

INTSPMAX — INTEGER — DECLARED IN SEGMENT 10 AT 01283000 

*01291000**01299000* 01307000 01312000 01313000 01349630 01633000 01637000 *02120220* r 

INX -" INTEGER ".- VaLuf PaRa m ETFR "" DEcLaRED IN SegMfNt 10 AT 00807110 L ' 

00807100 00807260 *00807275* 00807370 00807380 



u 



( 



o 



O 1 



O' 



o 



c 

O ! * NX " STREAM VARlABLr « VALUE PARAMETER -- DECLARED IN SEGMENT 47 AT 00807160 f 

00807210 ^ 

INX .- INTEGER -- VALUE PARAMETER -* DECLARED IN SEGMENT 10 AT 01355000 - - _ ._. 

O w 01353000 01354000 01375000 01377000 01381100 01382000 01383000 01399000 01438000 C 

I nx -• integer -- declared in segment 77 at 01704000 l 

♦01715000* 01716000 01718000 01721000 01726000 *017380QO* 01740000 01741000 

O IOATH *» FORMAT mm DECLARED IN SEGMENT 84 AT 01778000 r 

02020000 ^ 

IOQSH -- FORMAT mm nECLARED IN SEGMENT 85 AT 01824000 

02072000 

I0QUE "" OEFINf — DECLARED IN SEGMENT 10 AT 00j4«000 ( - 

02067000 - -— 

IOOUEAVAIL -- DEFINE « DECLARED IN SEGMENT lO AT 00143000 
02065000 

IOQUESLOTS « DEFINE -- DECLARED IN SEGMENT 10 AT 00164440 " 

±Q 02064500 

I0TIME — DEFINE •- DECLARED IN SEGMENT 10 AT 00139000 

'; IRSTACK <■• BOOLEAN — DECLARED IN SEGMENT 60 AT 01106000 

O *01U5000**01164300* 01168400 01199000 

■'■> IS — REAL — DECLARED IN SEGMENT 82 AT 01773000 

-1 02067000 02071000 02091000 " 

: -<0 ISNaMf " DEFINE m ~ DECLARED IN SEGMENT 2 AT 00033000 r 

00860000 00861000 v - 

ISTACK — DEFINE — DECLARED IN SEGMENT 10 AT 00137000 
Q 00727000 01132000 0l7nOO0 01723000 01725000 0i733000 r 

ISTACKOK — BOOLEAN -• DECLARED IN SEGMENT 60 AT 01106000 ^ 

♦01132000* 01168400 — 

ISTACKV — REAL »• DECLARED IN SEGMENT 60 AT 01106000 ,- 

01132000 01133000 *0H34000* 01164400 01164600 ^ 

ITD — INTEGER ARRAY -• DECLARFD IN SEGMENT 10 A T 00418000 

00778000 00784000 00788000 00789000 00791000 00792000 00793000 00801000 00802000 00803000 00804000 r 

ITEM — FORMAT — DfCLaRfD |N SFRMeNT 30 aT 00651000 L 

00659000 01976000 02142200 

ITEM -- FORMAT « DfCLARED iN SEGMENT 61 AT 01103000 r 

^ ITEM -• FORMAT -- DECLARED IN SEGMENT 67 AT 01288000 L 

01315000 -■ 

item -* integer -• value parameter -• declared in segment 10 at 01335000 r 

01332000 01333000 01342000 01345000 ^ 

J « INTEGER -- DECLARED IN SEGMENT 12 AT 00271000 - - 

*00292000**00294000* r 

J "" INTEGER — DECLARED IN SEGMENT 44 AT 00763295 L 

♦00763330* 
J — INTEGER -- DECLARFD IN SEGMENT 65 AT 01281560 r 

01281610 01281620 01281630 Ol26i64o 01281650 01281660 ♦0l28l760^ 0i28l780 01281790 0l28i820 01281855 L ' 

J — REAL — DECLARFD IN SEGMENT 79 AT 01757335 - 

♦01757897* 
J -- INTEGER — DECLARFD IN SEGMENT 93 AT 02120125 

JAR — DEFINE — DECLARED IN SEGMENT 10 AT 00131000 " 

00722000 01540000 
JARO — REAL — DECLARED IN SEGMENT 74 AT 01526000 v ~ 

01540000 ♦01541000* 01554000 01556000 - 

JAROO •• REAL -« DECLARED IN SEGMENT 74 AT 01525000 r 

01556000 ♦01557000^ 01559000 ~ 

JOPNUM — DEFINE *- DECLARED IN SEGMENT 10 AT 00134000 

00725000 01073000 

K " INTEGER — DECLARFD IN SEGMENT 36 aT 00736000 t - 

*00750000**00756000* 00757000 *00758000* 00762000 - — 

O r 



'O 

( 

O K — INTEGER — DECLARFD jN SEfiMENT 65 AT Di28l560 

0i?8i6i0 0i28i620 O128163O l 28 1 660 C 

K — INTEGER — DECLARED IN SEGMENT 93 AT 0?i20i25 ..._.. ._.. . __. 

O *021?060s* 02120610 *02120650* 02120655 

KIND — REAL « NAMF PARAMETER — DECLARED IN SEGMENT 10 AT 00686000 C 

00683000 *00689000* .. 

O K IND — INTEGER •• DECLARED IN SEGMENT 34 AT 00700000 

00701000 00702000 C 

KINDS — DEFINE — DECLARED IN SEGMENT 10 AT 00434000 
Q KLASS — tNTEGER *• DECLARED IN SEGMENT 2 AT 00029000 

♦00324000* 00328000 *00360000**00363000* C 

L — STREAM VARIABLE — DECLARED JN SEGMENT 20 AT 00353000 

- O 00355000 

L — INTEGER — DECLARED IN SEGMENT 31 AT 00658000 C 

■: *0066l000* 00662000 

;q •* ** REAL — DECLARED IN SEGMENT 36 AT OO734OOO 

P 00744000 00745000 00748000 00749000 C 

L — STREAM VARIABLE — NAME PARAMETER — DECLARED IN SEGMENT 46 AT 0077H00 

■I L — REAL — DECLARED IN SEGMENT 60 AT 01102000 C 

"i Q *SlU«?S**Sl2njSS* 0,U920 ° °l l5 i°°0 01151600 01164000 01167000 0H6B300 0U66700 0U69200 OH69400 ~~ 

L — INTEGER ■»• DECLARFD IN SEGMENT 62 AT 01229000 C 

*0l242000* 01243000 *0l245000* 01247000 ....._. 

O L — REAL « DECLARfD IN SEGMENT 66 AT 0lp87000 

01301000 *0i302000* 0i303000 Oi3040O0 *0i3l5000* 0i3l8000 0i3l9000 O132OOOO C 

L — INTEGER — DECLARED IN SEGMENT 70 AT 0i357000 ' 

lilllTo lllllTo ollltTa lllllZ °" ,as " 0M1M8 ° 0143 ' 000 0l " 0000 01 ««°°° °'^°°° •»««« c 

L — INTEGER — DECLARED IN SEGMENT 74 A T 01523000 - 

O *01631000* 01634000 01635100 01641000 01642000 01643000 

l -• real -• decLaRfd ?n segment 82 at 01753200 C 

01995000 01996000 01997000 01998000 01999000 2 0l0000 0211/510 02H7520 021 1 7530 021 1 7540 

O l-a — Real — dfclared in segment 82 at 01758200 u " u "° 02117540 

0200000 02040000 02068000 O21O1OOO 02105000 *0 2 n75l0* 02117540 C 

LABELDESC — STREAM LABEL -- DECLARED IN SEGMENT 70 AT 01371135 -- OCCURS AT 01371P56 - 

O 01371250 

LABELTABLE — DEFINE — DECLARED IN SEGMENT 10 AT OO15OOOO C 

02015000 
O LAST »m BOOLEAN »- DECLARED IN SEGMENT 29 AT 00587000 

*00602000* 00634000 

LASTR0W «- REAL ARRAY ** DECLARED IN SEGMENT 10 AT 00558000 - 

Q 00606000 00609000 00619000 00630000 

LENGTH -• STRFAM VARIaBLF — VALUE PARAMETER — DECLARED IN SEGMENT 70 AT 01370530 C 

01370550 01370660 01370720 01370730 01370770 

O level •- r e al — declared in segment 2 at 00028000 

*00068000* 00409000 

LF0 -- FORMAT -- DECLARED IN SEGMENT 85 AT 01655000 - 

O 02100000 

LIM -- INTEGER — V A LUE PARAMETER -- DECLARED IN SEGMENT 10 AT 01227000 ° 

01224000 01225000 01238000 01241000 

O LINE ''STREAM VARIABLE « NAME PARAMETER - DECLARED IN SEGMENT 29 AT 00 5 76000 

00578000 

LINE — RFAL ARRAY -« DECLARED IN SEGMENT 10 AT 00652000 --- -■ 

O 00659000 00665000 00666500 00667000 00763345 00763415 00763420 0r>7A^i0 no7A^on nm*<zAnn nn 7« KRnrt _ 

00807380 00607390 009i5000 00918000 009l9000 00920000 00925000 009?IoOO ^929000 So930oSo M96t1™ ° 

Q ° 0967160 °1 15 ^ 00 °^ 7 ™ °H 6 8600 01169100 0H69400 01169600° 0^000 OU^OO O^OOO I'lilolo — 

r 



c 



c 



o 



( J 



:; 01371030 



( 

O ! 01396000 01397000 01446000 01448000 01450000 01465200 01466700 01467900 01468300 01469200 Oi/i700nn r 

01470200 01552000 01560000 0i56 20 00 01566000 01567000 569000 639000 01643000 0164^000 757580 ( 

o ! SS8S 8!KS!S IHV.Z S1ISS.1 Ullllll JilSJSJS SKSKS SSSSKS r 

SKS?!S !KS!!.° HVAZ SK5S2SS SKSSS! °™° 0?10000 ° ol? ™« «»»» »»" ! ? SSSSSS5S _. c 

O UiNf "" ^FAM V AR!ABLF — NAM F PARAMETER — DECLARFO IN SEGMENT 47 A T 00807160 

vViiOT 18 t, 

LINE — STREAM VARIABLE — NAME PARAMETER »- DECLARED IN SEGMENT 60 AT OH1530O - ' 

O 01U5900 0iH6t00 in j ^ 

LINE — STREAM VARIABLE — NAME PARAMETER p« DECLARED In SEGMENT 70 AT 0H70020 V 

01370060 01370090 nr UZU 

O LINE — STREAM VARlAB|.F — NAME PARAMETER -- DECLARED In SEGMENT 70 AT OlVOPfiO 

01370290 01370320 C 

_ LINiE "" STREAM VARIABLE — NAME PARAMETER -« DECLARED IN SEGMENT 70 AT 01370530 ~ - — 

O 01370580 01370610 U '" J 

LINE — STREAM VARIABLE — NAME PARAMETER — DECLARED IN SEGMENT 70 AT 01370940 C 

01370970 01371000 "isrvvnv 

lO LINE """ 01 f J^f So VaR * ABlE "' N A M E PARAMETER — DECLARED IN SEGMENT 70 AT 01371110 

LINf.2 ""STREAM VARlARLE — N A ME PARAMETER — DECLARED IN SEGMENT 70 AT 01370940 — 

LINK -- R^AL .» DECLARED IN SEGMENT 56 AT 00948000 C 

*n?^3iS°* ° n 80000 00983000 00985000 00987000*00988000*01007000 0j009000 *0l0ll000* OlOipOOO 0l0l5000 

l„kok - i oi B 7 oT F ; N oi ^o 8 s R r o ^ oo s E ou o j R o ^ o ?rs E o j H o F i! o 5 ° 6 rass..? " 00 ' dJmmm •"»"•» °*~ sissrsss c 

♦ 00953000* 00972400 00981000 0KU3000 OIO38OOO -- 

q LjNKTyPf — REAL " DFCLARED IN SEGMENT 10 AT 00295100 

00593000 *0il49j00* 01166100 *0il66600* 01166900 *0H67300* 01167700 *0 1 1 67800**0 1 1 68 1 on* miAflinn *nn*A*nn* C 

01168550 01168900 01169400 0i20000 01210000 oJ^OOO *0i281835* * 01168300 *0U68500* 

Q LiNKl -- STREAM VARlARLF — VALUE PaRAMeTfR — DECLARED |N SEGMENT 60 AT 01115400 c 

" UNK2 "S lt ?J5oo M oJJISSK ;il2l500 UE PARAMETER - DECLARED IN SEGMENT 60 AT 01115400 - ----- 

LINK3 -- STREAM VARIABLE — VAlUE PARAMETER — DECLARED IN SEGMENT 60 AT 01115400 ^ 

01H5500 01121700 ..- . ._ 

O LISTMCPROG — DEFINE — DECLARED IN SEGMENT lO AT 01281420 

02168000 L. 

LL m * REAL •• DECLARED IN SEGMENT 60 AT 0U04000 - — 

O *0H68900* 01169000 01169100 01169200 *01t97000* 

LNKSOK « BOOLEAN « DECLARED IN SEGMENT 10 AT 00498000 C 

Q *00976000* 00979000 *00980000* 01000000 01033000 01034000 01035000 01051100 01052100 01058000*02120405* - - 

L0 " BOOLEAN *• DErLARFD IN SfgMeNT 4l A T 00763140 C 

*00763450* 00763490 00763570 *00763575* 
Q LOAD — PROCEDURE " DECLARED iN SEGMENT iO AT 00810000 

00869000 02H9i80 O2121OOO C 

LOC — INTEGER — NAME PARAMETER — DECLARED IN SEGMENT 10 AT OO316OOO 

O 00327000 *00331000**00334000* 

LOC — INTEGER -- DECLARED IN SEGMENT 20 AT 00351000 O 

♦00359000* 00361000 00362000 

O LOC — INTEGER — VaLUE PARAMETER — DECLARED IN SEGMENT 10 A T 00546000 ~ 

00544000 00545000 00547000 O 

LOc — INTEGER — ViLUF PARAMETER — DEcL A RED IN SEGMENT 10 A T 00550000 

O 00548000 00549000 00551000 

LOc -- INTEGER ""* DFCLARED IN SEGMENT 39 aT 00763024 O 

00763032 00763034 *00763036* 00763042 



: i 



O 02014000 02038000 



C 



Oi L °C •" INTEGER -«■ DFCLARED IN SEGMENT 47 AT 00807130 r 

w 00807330 00807340 *00807350* 00807370 

loc ** Real -- declared in segment 52 at 00373000 - - — - — 

Q #00884000* 00885000 *00886000* 00887000 *008S8000* 00889000 *0089l000* 00892000 f 

LOC »* INTEGER — DECLARED IN SEGMENT 54 AT 00904000 

♦00913000* 00915000 009J6000 00918000 *00923000* 00925000 00926000 00928000 
O LOcATQUE "- DEFINE ** DECLARED IN SEGMENT 10 AT 00142000 ■' r 

; 02068000 v - 

LOciRrW •- REAL •" nECLARED IN SEGMENT 10 AT 01352500 — - 

,'--) *0l609l00**0l609?00* f 

^ LOhALf mm INTEGER PROCEDURE — DECLARED IN SEGMENT 10 AT 00548000 

*0055l000* 00661000 00763042 009i6000 009j7000 00926000 00927000 00967i30 0i757590 0i757730 0i757820" 
±Q 01757860 01757865 01977000 02004000 02005000 02032000 02047000 0?057000 02076000 02087000 02095000 f 

02105000 02113000 02H7530 02142250 
:; LOOKQ — DEFINE •• DECLARED IN SEGMENT 10 AT 00164315 - - . - . 

. y Q 01985150 (■ 

LOOP •- LABEL •» DECLARED IN SEGMENT 41 AT 00763165 -- OCCURS AT 00763500 
i 00763560 00763620 ..-._.. -— 

. "O LQAVAlL -• DEFINE " DECLARED IN SEGMENT 10 AT 00164420 r 

.": 02117430 02117450 ^~ 

* " LQUE "- DFEINe -" DFCLARED IN SEGMENT 10 fl T 00164410 

- d 02U7440 02117560 

w LQUEHDR — FORMAT -- DECLARED |N SEGMENT 84 AT 01774100 ^ 

02H7480 
O l- S "• R EAL •" DECLARED IN SEGMENT 82 AT 0i758200 r 

02015000 02019000 02039000 O2O68OOO 02071000 02098000 

LSLATE *• DEFINE •<• DECLARED IN SEGMENT 10 AT 00123000 -"- " 

r) 01988000 01995000 

^ LSTD — REAL ARRAY •- DECLARED IN SEGMENT 74 AT 01532000 

*01668000* 01675000 OI676OOO 01677000 01681000 *01685000* 
f) LUN — FORMAT ** DEcLaRED IN SEGMENT 84 AT 01774000 r 

02023000 ^ 

LI -- STREAM LABEL — DECLARED IN SEGMENT 70 AT 01370570 — OCCURS AT 01370650 

Q 01370630 r 

LI -- STREAM LABEL — DECLARED IN SEGMENT 70 AT 01371135 -- OCCURS AT 01371210 

0137H90 

Q M — DEFTNE — DECLARED IN SEGMENT 10 AT 00H4000 r 

00547000 00551000 00606000 00608000 00615000 00617000 00640000 00641000 00643000 00644000 00675000 

00679000 00689000 00692000 00763600 00763615 00774000 00777000 00780000 00783000 00796000" 00799000 '" ~ 

O 00824110 00832000 00832100 01149000 01516000 01517000 01559000 01561000 01757600 01757875 01978000 f 

02038000 02040000 02129180 

m — real — dfcURfd ?n segment 27 at 00466000 

Q +00484000**00488000* 00489000 0049i000 00492000 00493000 r 

M -- INTEGER -- DECLARED IN SEGMENT 56 AT 00963000 
O1O35OOO *0i048000* 01055000 0i057000 
C) M -- INTEGER -• DECLARED IN SEGMENT 58 AT Oj 068000 f 

*0l083000* *~ 

MA -- REAL -- DECLARED IN SEGMENT 82 AT 0i758200 - 



c 



MANY •• STREAM VARIAB|,E -- VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT 00536000 

00537000 00541000 00542000 — " 

Q MATCH — BOOLEAN -- DECLARED IN SEGMENT 29 AT 00587000 r 

*00619000* 00627000 00636000 . ^~ 

MaXbAD •• INTFGER -- DFCLARFD IN SEGMENT 10 AT 00715000 

Q *01020000**01021000**02120185* 02160000 02161000 r- 

MAXcOMMONVALUE — DEFtNe " DECLARED IN SpGMENT 2 AT 00016000 ^ 

MAXCOR •• INTEGER « DECLARFD IN SEGMENT lO AT 00496000 . .. .- 

o c 



( 

Oi 00807350*00853000*00971000 0^20000 O1O36OOO 0i7576l0 01757880 0i8? 2 000 0i978000 02165000 ( 

MAXLNK — INTEGER -- DECLARED IN SEGMENT 10 AT 00715000 ^ 5 C - 

„. """ ^02120190* 02152°0° ^J® 3000 00 " 1000 010 °1 000 OlOllOOO 01021000 01027000 01056000 01058000 ' 01060000 

M AXMCPDATA — INTEGER — DECLARED IN SeGM F Nt 65 AT 01281560 - ^ 

♦ 01281590**01281650* 01281670 0l28i700 — 

O maxmcpRog — tntfgeR -• dfclaRfd in segment to at 01222000 r 

*0l26l000**0i?65000* 01265900 *0i27i000* 01275000 01278000 01280000 O t 349560 01444000 *02l20205* C> 

MAXMESSA6ES — DEFINE •- DECUARFD IN SfgMfNT 10 AT 01747000 — — 

O 01757530 Oi757897 0i7579s0 0i982000 

MAXMOd — INTEGER — DECLARED IN SEGMENT \0 AT 00496000 C 

♦ 00851000**00852000* OO853OOO ■-■- 

-;Q MAXOPT •• DEFINE •• DECLARED IN SEGMENT 10 AT OOlliOOO 

MAXSTaCkSIZe — DEFINE — DECLARED IN SEGmEnT 70 AT 01365000 ^ 

- 01454000 01456000 01457000 

O MAXSTK — INTEGER « DECLARED IN SEGMENT lO AT 00095000 r 

♦ 01087000**01203000* 01737000 01738000 01741000 *02120235* ( - 

maybe — stream label — declared in segmfn t 46 at 00771105 « occurs at 00771135 

.'i maybe ■■- label — declared in segment 52 a t 00875000 — occurs at 00893000 ^ 

i "" 00885000 00887000 00889000 00892000 * -- 

O M CP — BOOLEAN -- DFCLARED IN SEGMENT 2 AT 00035000 r 

♦ 00069000^ 004)1000 00790i00 00807550 0H23000 l2 8 1 000 0i985l00 0*985350 02ll7i55 0?n7400 0?n90OO L 
MCPCNT - INTEGER STREAM PROCEDURE - DECLARED IN SEGMENT AT 00765000 '* 535U U211 ^ 55 °2l 17400 2 1 19000 

O *00768000* 00769000 00786000 

MCPCODE — STREAM LABfL — DECLARED IN SEGMENT 60 AT 01115800 — > OCCURS AT 01119100 

01116800 - 

Q MCPCODE — STREAM LABfL — DECLARED IN SEGMENT 10 AT 01349160 -» OCCURS AT 01349380 

"I J '♦ 7 J J V x^. 

mcpdata -- real array -• declared in sfgmfNt 65 at 01281540 _ .. 

O *0i28i650* 0j28i670 0!28i760 0i28i635 O128185O l2 8i855 O128186O 

MCPENTRlES — PROCEDURE — DECLARED IN SEGMENT lO AT 00718000 

00940000 _ 

O MCPHDR -- FORMAT ». DECLARED IN SEGMENT 17 AT 00299000 

00409000 " C 

MCPOPT — SWITCH FORMAT •• DECLARED IN SEGMENT 18 AT OO3OOOOO - 

Q 00411000 

MCPOUTErBLOCK — STREAM LABEL — DECLARED In SEGMENT 10 AT 01349160 *- OCCURS AT 01349371 C ~ 

01349340 - 

O MCPROG — REAL ARRAY — DECLARED IN SEGMENT 10 AT 01221000 

♦01261000**01271000* 01275000 01279000 01349560 01444000 ( ~ 

MCPSAVE — BOOLEAN -- DECLARED IN SEGMENT 60 AT 01107100 - - 

*01164000^ 01168550 Ol2o8loo 01211000 *0l2l5l00^ 

McPVERSlON -- DEFINE — DECLARED IN SEGMENT 10 AT 00435000 C - 

00773000 00786000 00787000 00768000 - 

MDUMP -- FILE — DECLARED IN SEGMENT 2 AT 00016510 ^ 

00824210 00826990 008 2 7000 OO834O50 00834060 00834070 00834095 00834097 008 3 5000 008 3 7l00 OO838OOO 

MEMASK — DEFINE — DECLARED IN SEGMENT 10 AT 00164190 ^ 

00807560 L. 

MEMORY — REAL ARRAY — DECLARFD IN SEGMENT 10 AT 00112000 — - — 

O ^ 5 ^l^° 0055 1000 00606000 00608000 00615000 00617000 00640000 00641000 00643000 00644000 00675000 r- 

00679000 00689000 00692000 00763600 00763615 00774000 00777000 00780000 00783000 00796000 0079900? C 

00824U0 00632000 008 3 2l00 0U49000 Oi 22 0000 l5 l6000 Oi5l7000 l55 9000 0j56l000 01757600 ai757B75 

01978000 02038000 O2O4OOOO 02129180 ^ 

MEND — DFFINE — DFCLARED IN SEGMENT lO aT 00127000 C 

00966000 ~ . - __ __. 

o 



u 



■lio 



r 



L. 



Q[ MESSAGEHOLHER »- DEFINE -- DECLARED IN SEGMENT \0 AT 00i54000 Q 

01971000 01973000 

MIN -- INTEGER -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 00452000 

Q 00451000 *00455000**00458000* f 

MINBAD — INTEGER *• DECLARED IN SEGMENT 10 AT 00715000 

*01009000**02120l80* 02156000 " ~~ 

MjNLNK « INTEGER •- DECLARED IN SEGMENT 10 AT 00715000 f 

♦009/6100* 01000000 01003000 01005000 *02120l75* 02145000 02147000 02149300 02150010 02152000 

MINUS1 — STREAM PROCFDURE — DECLARED IN SfGMENT 90 AT 02119340 "" "'" 

n, 02119360 

^ MjNUTfS « DEFINE •• DECLARED IN SEGMENT 10 AT 00426000 

00784000 00789000 00792000 00793000 00801000 00802000 00803000 00804000 

O MIX •" REAL ARRAY — DECLARED IN SEGMENT 36 AT 00737000 r 

w *00757000**00758000* 00762000 

MIX — INTEGER " DfCLaRED IN SEGMENT 58 aT 01067000 
♦01082000* 01083000 01084000 01088000 01092000 
MIX — STREAM VARIABLf — VaLUF PARAMETER -* DECLARED IN SEGMENT 60 AT 0H15300 

01115500 OIII83OO ...... 

MjX — RfaL « DECLARED IN SEGMENT 66 AT 01287100 r 

i *0i295200* 01310^00 

• MIX •- INTEGER -« DECLARED IN SEGMENT 74 AT 01522000 ~ 

Q *0l545000* Oi545?00 01546000 0i552000 01556000 0i575000 01576000 01690000 0l695l00 *0i 697000**01698200* f 

01698300 
MIXMASK -■• DEFINE — DECLARED IN SEGMENT lO AT 00164345 

01757434 C 

MIXMAX -- INTEGER -• DECLARED IN SEGMENT lO AT 00092000 

♦ 00746000**00751000*00954000 01545000 01697000 01698200 02120605 ~ 

MIXSTK •- REAL ARRAY — DECLARED IN SEGMENT 10 AT 01063000 Q 

01083000 *01088000* 01690000 *0l695100* 01698300 *02120610* 

MMM -- PROCEDURE — DFCLARED IN SEGMENT 41 fl T 00763375 

00763535 00763540 f 

MODE — STREAM LABEL — DECLARFD IN SEGMENT 70 AT 01371135 — OCCURS AT 01371360 

01371254 — 

MODON — BOOLEAN ARRAY " DECLARED IN SEGMENT 10 AT 00417000 r 

^ *00829000* 00852000 00936000 

MOM -- STREAM VARIABLF — VALUE PARAMETER — DECLARED IN SEGMENT 60 AT 01H5400 

01H5500 01120900 r 

^ MOMADDRESS -« STREAM VARIABLE — VALUE PARAMETER *"> DECLARED IN SEGMENT 70 AT 01370540 

01370550 01370850 

MOMFLG -- STREAM VARIABLE -" VALUE PARAMETER — DECLARED IN SEGMENT 70 AT 01370540 r 

01370550 01370810 ^ 

MONfTORR •- DEFINE -- DECLARED IN SEGMENT 10 AT 00110500 

q MONTH -- TNTEGFR — NAMf PARAMETER "• DfClAReD IN SEGMENT 10 AT 00464000 r 

00461000 *0049i000* 
MOVADR -- STREAM LABEL "- DECLARED IN SEGMENT 10 AT 01349160 -- OCCURS AT 01349250 

01349190 0i349?00 Oi 3^921 r 

^ MOVC -- STREAM PROCEDURE — DECLARED IN SeGmENT 10 AT 01325000 

01331000 01559000 01561000 01566000 01567000 01915000 02035000 0?038000 O2O4OOOO 02049000 02059000 
02089000 02096000 02107000 02114000 C 

MOVD "<• STREAM PROCEDURE •- DECLARED IN SfGmENT 10 AT 01750000 

01757100 01757600 01757875 01978000 02129180 

MOVE "" STREAM PROCEDURE "" DECLARED IN SfGMENT 2 aT 00036000 Q 

00037000 00054000 00058000 00360000 00606000 00615000 00630000 00665000 00763600 00763615 00835100 

00918000 00919000 00928000 00929000 01319000 01396000 01448000 01643000 02007000 02133000 02173640 " '"" 

MOVF "" STREAM PROCEDURE •*" DECLARED IN SfGMENT 45 AT 00763385 r 

00763405 00763415 
MOVF — STREAM PROCEDURE mm DECLARED IN SfGMENT 62 AT 01231000 " 

o c 



MS . 
MSFF 



O 0l?37000 01247000 

MOVER -- STREAM PROCEDURE — DECLARED IN SEGMENT 50 AT 00818000 f ^ 

00822000 00832000 - 

O MOVNAM JJ STREAM LABEL - DECLARED IN SEGMENT 60 AT 01U5850 - OCCURS AT 01119600 ( 

MOVNAM -- STREAM LABEL " DECLARED IN SEGMENT 10 AT 0i349i60 — OCCURS AT 01349430 
i^_j "134*400 

MOVSIZ -• STREAM LABEL — DECLARED I N SEGMENT 60 AT Oi 1 1 5850 — OCCURS AT 01190000 C 

01H8500 01H9000 01U9900 

O MOVTYp -- STREAM LABE L — DECLARED IN SEG M EnT 60 AT 01H5850 .. OCCURS AT 01H7500 

REAL « DECLARED IN SEGMENT 82 AT 0i758200 - 

02014000 02019000 02037000 
- STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 70 AT 0l370?60 C 

01370270 01370400 ' JM '" U _..... 

TiO MSG — $1*1**1 VARIABLE « NAME PARAMETER — DECLARED IN SEGMENT 10 AT 01349120 

01349170 *01349?30**01349270**Q1349300* ' C 

MSG — REAL ARRAY — N A ME PARAMETER — DECLARED IN SEGMENT 10 AT 01349530 - -- 

O u „ B 01349500 01349570 01349610 01349640 01349700 

- MSTART — DEFINE — DECLARED IN SEGMENT 10 aT 00126000 C 

00965000 00972500 00973000 _ 

-=0 MSTARTOK — BOOLEAN ,— DECLARED IN SEGMENT 56 AT 00947000 

♦00972500**00973000* 00976000 00976100 00976200 C 

MULTI -- BOOLEAN -• DECLARED IN SEGMENT 10 AT 00082150 - 

Q 00824200 00826990 00834075 *00834085* 00837095 02173700 

MULTITABLE — DEFINE — DECLARED IN SEGMENT 10 A T 00151000 C 

02014000 . . 

MV — SJRFAM PROCEDURE — DECLARED IN SEGMENT 29 AT 00586000 

00608000 00617000 

mx — Real ■• dfclared in sfgmfnt 60 at.oiii300o - - ._. 

O *0ll49200* 0H69400 01209000 0i2l0000 

MXNOTO -- BOOLEAN — DECLARED IN SEGMENT 60 AT 01107100 

•01H9200* 0H66000 0H68400 0U68550 

O MXO -- DEFINE -« DECLARED IN SEGMENT 60 AT 01107200 

OH684OO 01168^50 

MY -«. REAL -• DECLARED IN SEGMENT 6 AT 00040120 .. . _ 

00040240 00040?50 OOO4O27O 

MYSTACKADR — INTEGER — DECLARED IN SEGMENT 2 AT 00004500 C 

mvct *p,22 a025 °* 0004 ? 280 0° fl 63i00 *00863130* 01457110 01457130 01457140 1 7421 10 1 7/i?i 30 *0?i 7 ^799* - -- 

MYSTACKOUMPFD -- BOOLFAN — DECLARED IN SpGMENT 2 aT 00018000 "1^2110 01742130 *02173799* 

01457 l2 *0l457i50* 01742100 *0l742l65* C 

MYSTAcKsiZE " DEFINE — DECLARED IN SeGM F N T 2 AT 00004100 - — 

O 01457110 01742140 

mytyPf -- Real « dfclared in segment 52 at 00874000 C 

♦00883000* 00885000 00887000 00889000 *00890000* 00892000 
M32 — ** R E{j|J V *RIABLF " V ALUE PARAMETER — DECLARED IN SEGMENT 62 AT 01231000 

N — INTEGER — DECLARED IN SEGMENT 8 AT 00046000 ^ 

*00048000* 00054000 

N " INTEGER — DECLARFD IN SEGMENT 19 AT 00318000 C 

♦00326000* 00327000 *00329000* 

N — S 00321000 RIABLE: "" VALUE: PARAMETER •" DECLARED IN SEGMENT 19 AT 00319000 

' N *" T n I Efl n * — VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 00531000 - -•-- - 

O 00529000 00530000 00535000 

N — STREAM VARIABLE - VALUE PARAMETER — DECLARED in SEGMENT 2 9 AT 00586100 

00586130 -- _ 
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Qi n -- stream variable — name parameter — declared in segment 50 at 00822100 - r 

00822120 00822?40 

" N — INTEGER — DECLARED IN SEGMENT 54 AT 00904000 .... - .„ 

*009l6000* 00917000 00919000 *00926000* 00927000 00929000 *00935000* 00936000 r 

^ N — INTEGER — DECLARED IN SEGMENT 56 AT 00963000 ^ 

*00967140**00967i50**00978l00* 01033000 *01046000* 01053000 01057000 

O N "" INTEGER mm DECLARFD IN SEGMENT 6o AT 01112000 r 

*0H49000* 01152000 01167700 01168700 01169200 0H69500 0H97000 0i203000 01213100 01213300 01218000 

N — STREAM VARIABLE "- VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 01349120 ~ 

01349130 01349460 
N — REAL — DECURpD JN SEGMENT 82 AT 01758200 

01991000 01992000 01993000 01994000 01999000 *02002000* 02003000 02004000 02005000 020)0000 

'*0 N "" STREAM VARIABLE — VAUJE PARAMETER •* DECLARED IN SFGMENT 90 AT 02119340 f 

02119350 

Na -» STREAM VARIABLE « VALUE PARAMETER "" DECLARED IN SEGMENT 29 AT 00576000 "' " ' " " 

^O 00577000 00580000 00583000 

i NaM •* RfaL ARRAY mm DECLaRfD IN SEGMENT 4l AT 00763160 

][ 00763435 00763510 

;,!q NAMe *" RfAL ARRAY •»• DECLARED IN SEGMENT 10 AT 00085000 r 

003 ? 6000 00328000 00665000 00666000 OO845OOO *00858000* 00859000 00926000 00928000 00929000 O11686OO 

jj 0H68700 01349570 01349580 01448000 01449000 02007000 02008000 " — 

:: -Q NAME — STREAM VARIABLE — NAME PARAMETER »- DECLARED IN SEGMENT 60 AT 0H15300 r 

01H8000 0Hi9e00 w 

NAME — STREAM VARIABLE -- NAME PARAMETER •» DECLARED IN SEGMENT 10 AT 01349120 

O 01349450 

NAME — STREAM VARIABLE — NAME PARAMETER *• DECLARED IN SEGMENT 70 AT 01370020 

01370220 . 

O N A Me — STREAM VARIABLE — NAME PARAMETER »- DECLARED IN SEGMENT 70 AT 01371110 r 

01371410 v - 

■"■ - NAMESfZF — INTEGER ■ — DECLARED IN SEGMENT 2 AT 00030000 . .. . 

,-) *00064000**00070000* 00085000 OO845OOO OO856OOO 

w NAMS -- REAL ARRAY -- DECLARED IN SEGMENT 10 AT 00086000 ^ 

003^9000 00665000 OO846OOO 00928000 009?9000 0H68700 01349570 01448000 02007000 " " 

O NAMSSjZE — INTEGER — DECLARED IN SEGMENT ? AT 00030000 - r- 

*00064000**00071000* 00086000 00846000 
NB -- STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 29 AT 00576000 
00577000 00581000 00584000 

NC •- STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 29 AT 00576000 

00577000 00582000 00585000 ~" 

O NEFDCHECKAVAIUNKS -• rOOLFAN -• DECLARFD TN SEGMENT 10 AT 00716000 r 

01151900 *02120425**02141000* 

next — labei *- declared in Segment 36 at 00743000 -- occurs at 00759000 
O 00755000 r 

NEXTiTEm -- PROCEDURE -- DECLARED IN SEGMENT 10 AT OO4O2OOO 

01373000 01570000 O161OOOO 0i72?000 01732000 0^57400 0l9l9000 0^919300 0i970000 0i986l00 O2O12OOO """ 

02117050 02117125 02U7420 02119210 02119240 * r 

NEXTPAGE — DEFINE — DECLARED IN SEGMENT lo AT 00296000 

00932000 00941000 01276000 01309000 01551000 01705000 01709000 01727000 01735000 01741000 01856000 

01919400 01985380 01986000 02012000 02064000 02119170 02173795 r~ 

NeXTWaIT -- dffINf -• OFCLaRED I N SEGMpNT 10 AT 00148000 

" NfO m» DFFlNE «•• DFrLARED IN SfgMeNT 10 AT 00136000 - 

00726000 /-- 

W NODUMP — DEFINE *• DECLARED IN SEGMENT 2 AT 00012500 

0OAO7350 0ii5i?00 0U52000 0H64900 0l2i3300 0i28i720 01281780 0i28i855 Oi75777o 0i757840 02119250 " 

02138000 02142000 02142300 02143000 02144000 02148000 02149000 0?l49]00 02149300 02149400 02160000 r- 

02165000 02165100 
NODUMPTOG -- BOOLEAN « DECLARED IN SEGMENT 10 AT 00082110 " ~ 

o c 
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,^A V^UtJ'JVWV/ W^W'tl/VV/ w^w^^wwvr *-« w *"t-»* w w 

,vJ 0211^530 02117540 02142200 02142250 

OCTALwORO — DFFlNE -- DECLARED IN SEGMENT 60 AT 01115100 
C\ 0n?i400 0H21600 0H21800 

U OCTDEC « "REAL STREAM PROCEDURE — DECLARED IN SEGMENT 6 AT 00040150 

000/J0160 00040?30 



C 



U 



L. 



♦02165120* 02173796 *02t73797* 

NOMCPCODE — DEFINE — DECLARED IN SEGMENT 2 AT 00007000 

01211000 01281B35 02H9200 
NOMEMXI — FORMAT -" DFCLARED IN SEGMENT 83 AT 01762000 C 

~ / ' 01860000 c 

NOMO — BOOLEAN — DECLARED IN SEGMENT 10 AT 00082150 
C\ ♦00837095**00838010* 02119160 „„„„„„ 

U NOMOM -- STRFAM LABEL — DECLARED IN SfgMfNT 70 AT 01370570 — OCCURS AT 01370920 

01370820 01370890 
r\ NONORmAlCODE — DEFINE — DECLARED IN SEGMENT 2 AT 00006000 L. 

W Ol?t0000 . - 

NOPROCESSTOG — DEFINE « DECLARED IN SEG M EnT 10 AT 00164340 
■■ n 01918200 

"^ NORMAL — BOOLEAN — DECLARED IN SEGMENT 70 AT 01366000 

*01382000* 01385000 01391000 01420000 01422000 01454000 01465800 

^ r NOTHINGTODO -• DEFINE " DECLARED IN SEGMENT 10 AT 00159000 

> U 00884000 

NOTPRlNTCALL -- BOOLEAN — DECLARED IN SEGMENT 10 AT 00559100 
-,-, 00593000 *01122100**01208100**01219100**01281685**01281905* L 

■j U N0T50CTADES — BOOLEAN STREAM PROCEDURE — DECLARED IN SEGMENT 6 AT 00040170 

■■o 



c 



r 



r 



♦00040190* 00040?30 
NOWRAPAROUNn — BOOLEAN -- DECLARED IN SEGMENT 56 AT 00947100 L 

♦01025000* 01032100 *0l036000* 

NSLATf — DEFINE •" DECLARED IN SEGMENT 10 AT 00122000 

01987000 01991000 
NSNaMe mm DEFINE •• DECLARED IN SEGMENT 2 AT 00031000 _ 

008S8000 00859000 00926000 
NULLMrSSAGES -«• FORMAT — DECLARED IN SEGMENT 83 AT 01760000 C 

01985000 
NULLQUE — FORMAT « DFCLaRrD |N SEGMENT 84 AT 01774140 

r\ 021 17460 ^ 

U NULLSLATE — FORMAT »- DECLARED IN SEGMENT 83 AT Ol76lOOO _ . 

02011000 

N1 mm ALPHA — DECLARED IN SEGMENT 50 AT 00823100 L 

00837050 #00837055**00849100* 00849200 . ... 

N2 -- ALPHA -- DECLARED IN SEGMENT 50 AT 00823100 

*00849100* 00849200 

OCTADF — DEFINE »- DECLARED IN SEGMENT 10 AT 00112500 fti , 7 ., c . 

00579000 00580000 00581000 00586130 01116200 01120500 01121100 01121400 01121600 01121800 01370150 

r , 01370200 01370380 01370510 01370710 01370750 01370880 C 

U C TaL — REAL PROCEDURE — DECLARED IN SEfiMpNT 10 A T 00529000 _ 

♦00535000* 00659000 00660000 OO661OOO 00662000 00689000 00762000 00763042 00915000 00916000 00917000 

o 00925000 00926000 00927000 00967120 00967130 00967140 00967150 OlOOOOOO 01001000 01005000 01006000 Q 

U 01007000 01021000 01022000 OlOSiOOO 01057000 O1O6OOOO 01084000 01315000 01316000 01317000 01376000 _ 

01378000 01387000 01388000 Oi394000 01395000 0i4l8570 01418575 01418580 01438000 01439000 01440000 

01441000 01442000 01443000 Ol4470QO 01465200 0i465300 01572000 0i573000 01575000 Oi576000 01579000 (_ 

^ 01580000 01581000 01583000 0^84000 01585000 0i587000 01588000 0i59l000 01592000 01596000 01597000 

O16OOOOO O16O1OOO 01605000 0006000 01607000 01639000 01640000 0i64l000 O1681OOO O1683OOO 01684000 

rs O16841OO 0J75758O 01757590 01757720 0i757730 0i7578i0 01757820 Oi757855 0i757860 0i757865 O186OOOO ( 

U 01976000 01977000 02003000 O2OO4OOO 02005000 02023000 02028000 02030000 02031000 02033000 02044000 

02045000 02046000 02047000 02048000 02056000 02057000 02058000 02075000 02081000 02082000 2S??I2SS r 

02088000 02094000 02095000 02102000 02103000 02104000 02105000 02106000 02112000 02113000 02117520 f 
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Q: 0LAY "" STREAM LABEL — DECLARED IN SEGMENT 60 AT 01115800 — OCCURS AT 0U17300 f 

01H6500 

ON — LABEL — DECLARED IN SEGMENT 27 AT 00fl67000 — OCCURS AT 00490000 

O 00484000 00489000 

ONEMIX •- DEFINE «— DECLARED IN SEGMENT 2 AT 00004000 

01209000 01545100 01697000 "' 

Q OPERAND •• BOOLEAN PROCEDURE "" DECLARfD fN SEGMENT 10 AT 00669000 f 

♦00676000**00680000* 00682000 00763440 00763450 00763580 00763585 00773000 00790no 00967l00 00968000 

00972400 00973000 00980000 00992000 0l0i2000 0i026000 01028000 Oi037000 O1O4OOOO 0t042000 01058000 

O 01073000 01125000 01128000 01129000 01151300 0H51400 0H63000 0H66200 01166400 0)167000 01167100 r 

01168900 01295100 01298000 01301000 OHlBSlO 01418540 01419000 01423000 01465900 01468600 01613000 
01617000 01621000 01624000 01625000 01757505 01757530 01757710 01757845 Ol75787o 01757890 01858000 
Q 01921000 01973000 01983000 0i99i000 01995000 02117450 02117510 02129100 02139000 02142100 02142120 f 

OPTlON — DEFINE — DFCLARED IN SEGMENT 10 AT 00153000 ^ 

01920000 1921000 ...... _..._ 

OUTeRBLOCK « REAL ARRAY -* DECLARED IN SfGMENT 10 AT 01223000 

*0l?66000* 01349600 02149300 

- 01 -» STREAM VARIABLE -• NAME PARAMETER •• DECLARED IN SEGMENT 6 AT 00040p00 

Q OOO4O21O 

"' 02 -- STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 6 AT 00040200 

-.1 00040210 - - - 

: P -• FILE — DECLARED IN SEGMENT 2 AT 00016530 r 

00017200 00056000 00059000 00365000 00404000 00405000 00409000 00411000 00412000 00623000 00624000 

00644500 00645000 OO646OOO 00649000 00666500 00667000 00747000 00761000 00762000 00763042 00763044 "" 

O 00^63420 00763460 00763465 00763475 00^63520 00763550 00773000 0Q775000 00781000 00785500 00785550 f 

00785600 00785700 00786000 00790120 00793000 00794000 00797000 00802000 00804000 00807390 00807540 

00893000 00894000 00908000 00912000 00920000 00922000 00930000 00932000 00935000 00941000 00967160 

O 00999100 01000000 01005000 01007000 01021000 01022000 01051000 01056000 01057000 01060000 01061000 C 

01084000 01095000 01151700 01169600 01276000 01277000 01280000 0)280300 01309000 01310100 O13H000 

01321000 01374000 0i387000 Oi39700o 0l4l8570 0)438000 0)450000 0)452000 01470200 0i55l000 01569000 

Q 01571000 01615000 01644000 01680000 01689000 01705000 01706000 0)709000 01727000 01735000 01741000 r 

01757620 01757760 01757830 01757885 OI856OOO 01860000 01862000 01916000 01919400 01925000 01961000 

01964000 01967000 01979000 01985000 01985380 01986000 02009000 02011000 02012000 02020000 02061000 "" " 

(\ 02064000 02072000 02H6000 02117460 02117480 02117520 02117540 02117550 02119170 02119220 02129000 r 

^ 02129190 02130000 02132000 02134000 02136000 02142200 02147500 02148500 02149050 02149360 02173590 

02173600 02173650 02173792 02173793 02173795 02175000 02176000 - 

D P — STREAM VARIABLE — NAMp PARAMETER — DECLARED iN SFGMENT 46 AT 0O77H0O r 

0077U10 U 

PA -m DEFfNE — DECLARED IN SEGMENT 10 AT 00807470 - 

q 00807550 00807*560 00807570 OO8O7575 

^ PA -- REA L , ». DECLARED IN SEGMENT 82 AT 0)758200 

02017000 02054000 02057000 - -- - --■ 

O PACKETS -- DEFINE " DFCLARED IN SEGMENT lO AT 00110400 ( - 

PAR -- LABEL -- DECLARED IN SEGMENT 50 AT 00813000 -- OCCURS AT 00867000 
00826990 00827000 00837100 
Q PARERR »- FORMAT •*• DECLARED IN SEGMENT 5l AT 00815000 

00867000 

PAROW — DEFINE •- DECLARED IN SEGMENT 10 AT 00807470 " ~ 

00807580 01985390 

PBIT •• STREAM VARIABLE •• VALUE PARAMfTER -* DECLARED IN SEGMENT 70 AT 01371110 

01371120 01371)90 01371400 — 

O p COL — INTEGER -" DECLARED IN SEGMENT 74 AT 01529000 (~ 

♦01611000**01648000**01652000* 01654000 01660000 

PD -- FORMAT -- DECLARED IN SEGMENT 76 AT 0i538000 

O PDATADESC — BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 10 AT 00695000 — FORWARD AT 0065HOO f 

-00658600*00703000* 007^4000 00753000 00763032 00763445 00807330 00942100 O1O76OOO 0H3?000 01135000 
01169500 01542000 01546000 02129110 
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O ! PEOIO ~- DEFINE ■" DECLARED IN SEGMENT 10 AT 00164140 f 

PI NGO — DEFINE *" DECLARED IN SEGMENT 10 AT 00164320 

01985250 

PLUS -• INTEGER *• NAME PARAMETER — DECLARED IN SEGMENT 10 AT 01335000 f 

01332000 *01345000* 
PP 'm BOOLEAN — DECLARED IN SEGMENT 31 AT 00658100 

♦00658500* 00658600 00666900 
PR — LABEL -- DECLARED IN SEGMENT 50 AT 00812010 

PRESENCFBIT •- STREAM VARIABLE — VALUE PARAMETER -- ' DECLARED IN SEGMENT 70 AT 01370530 
O 01370550 01370630 

PREVLJNK — REAL — DECLARED IN SEGMENT 56 AT 00948000 

00979000 00982000 *00987000* 0099i000 00992000 01003000 01006000 *0i0l0000* 0l0l4000 *0i0l7000* 01020000 
01021000 01023000 01026000 01027000 01028000 01041000 *01049000* f 

PRINT "- hEFINe — DECLARED IN SEGMENT 10 AT 00568200 

00650000 00807350 01152000 01213300 01281720 0i28i780 0i28l855 Oi757770 0i757840 02119250 02142000 
Q 02142300 02143000 02148000 02149000 02149100 02149300 02149400 0?l60000 02165000 f 

w PR|NT A RRAY — DEFINE — DECLaRfD iN SEGMENT 10 A T 00807450 

00807550 00807560 00807570 00807575 0i985385 02ll7l00 02117200 "" "" ~ " ~" 

PRlNTARRAYROW « PROCFDURE — DECLARED IN SEGMENT lO AT 00807100 

00807440 00807550 00807560 00807570 00807575 00807580 0i985385 0^985390 021l7i00 02U7200 

PRINTCOMMONVALUES -» PROCEDURE — DECLARED IN SEGMENT 2 AT 00017000 ' " "" 

Q 00017210 02173791 02174500 

PRINTCORE — PROCEDURE — DECLARED IN SEGMENT 10 AT 00569000 

00807350 01152000 0i2l3300 0l28i720 01281780 0i28i855 01757770 0i757840 02U9250 02142000 02142300 ~~ 

q 02143000 02148000 02149000 02149100 02149300 02149400 02160000 02165000 f 

PRINTMCPOPTTONS — PROCEDURE " DECLARED IN SEGMENT 10 AT 00407000 

00413000 00909000 ~ 

PRtNTQUfUe — PROCEDURF — DECLARED IN SErMfNT 10 aT 01757300 r 

01757980 0i985i20 0i985l50 0i985200 0i985250 0i985300 0i985375 

PRINTSF-LECTEDARRAYS -- PROCEDURE •• DECLARED IN SEGMENT 10 AT 00807500 " 

00807900 02l72i00 

PRNTARLE — DEFINE •» DECLARED IN SEGMENT 10 AT 00155000 

02017000 ~ ~ 

PRO »• INTEGER -- DfCLARED IN SEGMENT 70 aT 01357000 

♦01463000* 

PROC — INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 01757310 
01757300 0l757«70 01757505 01757960 r 

PROcTIMf "m DEFINE -• DECLARED IN SEGMENT 10 AT 00138000 

PROgS «■- REAL ARRAY — DECLARED IN SEGMENT lO AT 01349005 -.-_.-.. 

01349680 *0l6no00**0l650000**0l654000**0l660000* 01663000 01667000 0i677000 01681000 r 

w PROWS -- TNTFGFR "• DFCLARED IN SEGMENT 10 AT 01349005 

01349670 *0i6no00* 01650000 *0i65i000* 01654000 O166OOOO 01662000 01664000 01665000 01673000 01674000 " ~" ' 

*02120225* 02129100 02129150 02129l8o 02142100 02142120 *02l42200* 02142250 r 

■ PRT — DEFINE — DECLARED IN SEGMENT 10 AT 00130000 "~ 

00721000 00744000 00942100 00943000 01542000 01543000 01572000 ' " " 

PRTBASE " DEFINE -" DFCLARED IN SEGMENT 2 AT 00025000 - r 

00085000 00845000 OO856OOO 00858000 00859000 00861000 00913000 00923000 01281600 

PRTcOdE -* INTFGFR — DFCLARED IN SeGMfNT 10 AT 00769900 

r\ 00785400 *00893000**00894000**02120l95* r- 

° PRTF — INTEGER — DECLARED \H SEGMENT 74 AT 01522000 

015*3000 0i573000 " " 

O PRTFILE — FORMAT — DECLARED IN SEGMENT 51 AT 00814100 f 

00849200 
PRTFJlEmESS mm STREAM PROCEDURE — DECLARED IN SEGMENT (\6 AT 00771100 
O 00771155 00785A00 C 

PRTH -• INTEGER *- DECLARED IN SEGMENT 74 AT 01522000 
♦01543000* 01573000 
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O P1MIX -"DEFINE — DECLARED IN SEGMENT 10 AT 00157000 

P2MIX "* DEFINE: -« DECLARED IN SEGMENT 10 AT 00i58000 

O 00730000 

9 -- PEAL — DECLARED IN SEGMENT 60 AT O11O4OOO 



o 



*01151300**01H3000* 01164000 01168550 01168900 



O l PRTITEM — FORMAT — DECLARED IN SEGMENT 55 AT 00903000 

00915000 00925000 

O " PRTL ° C 00"7630 NT 28 EGE R 076"; 30 AL ^76 P 30 R 52 ETER "" ^^ ' " ^^ >° AT °° 763020 

PRTL0 C •- INTEGER " VALUE PARAMETER — DfCLaRED IN SfGM F NT 10 AT 00807110 
00807100 00807?70 00607310 00807330 *00807370* U ° 

- O PRTMAX — INTEGER — DECLARED IN SEGMENT 2 AT 00024000 

lllSTo lllllZ lllltZ llutTol °" 63030 0080 " 10 * 00856000 * 00858000 O0923OO ° °"<«>°° •>»«••• 

Q PRTNAME -- REAL ARRAY -- DECLARED IN SEGMfNt 10 AT 00082200 

00785400 00849?00 
n„ PRT0K -- ROOLEAN -- DECLARED IN SEGMENT 10 AT 00092100 

O *00942100**01542000* 01698100 

PRTOUT — FORMAT — DECLARED IN SEGMENT 37 flT 00738000 C 

;; 00761000 _ 

j-O prtrow -- Real -- dfclaRed in segment 36 a t 00734000 

♦00753000* 00754000 00758000 
PRTS ** REAL ARRAY -- DECLARED IN SEGMENT 10 AT 00083000 
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PRTSMaX -- DEFINE -- DECLARED fN SEGMENT 2 aT 00027000 C 

00078000 00083000 00364000 
q PRTO — REAL -- DECLARED IN SEGMENT 10 AT 0o092i00 

pm. -- '?S^ ER 0, ;^S a ^HS s E ^ 3 TA T J^^o 0,54600 ° 0l5m00 '~ ..•»»•«><> - c 

O 01209000 01545100 01697000 

PRT27 -- INTEGER — DECLARED IN SEGMENT 2 AT 00004100 C 

01457110 01742140 
Q PRT30 -- ROOLEAN -- DECLARED IN SEGMENT 2 AT 00004200 

00622000 00645000 00807295 *00807300**00807435* C 

^ lo J ll m ' b00Le:aN "" DECLARED IN SEGMENT 2 AT 00004300 

O PRT32 -- BOOLEAN -- DECLARED IN SEGMENT 2 AT 00004400 

00056000 00364000 OO843OOO C 

PRYOR mm REFINE -» DECLARED IN SEGMENT 10 AT OO135OOO 
U P5 — REA I. "- DECLARED IN SEGMENT 62 AT Oj 758200 

02017000 020J9000 02051000 O 

PT -- FORMAT mm DECLARED IN SEGMENT 84 AT 0i777000 
O 02053000 

PUNTER — DEFINE — DECLARED IN SEGMENT 10 AT 00164400 O 
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O OltSSSoo 0°n69%°0° ° 1,5l3 °° ° 115l6 °° ° 116300 ° ° 116 «° 00 ° 116 ^ 00 °> i 6S '°° 01168700 01 168900 01 169200 

. . .. QT mm BOOLEAN — DECLARED In SEGMENT 60 AT 01104000 O 
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O I QTIMES — DEFINE — DECLARED IN SEGMENT 10 AT 00164275 r 

00807570 ( - 

Ql — FORMAT •- DECLARED IN SEGMENT 80 AT 01757340 - 

O 01757580 01757810 

Q2 -• FORMAT -- DECLARFD IN SEGMENT 80 AT 01757350 ^ 

01757720 _ 

O Q3 — FORMAT — DECLARED IN SEGMENT 80 A T 0i757352 

01757855 C 

R •" REAL •» DECLARFD IN SEGMENT 10 AT OO082OOO — 

-|||sis|s* i°it\z zxzi* rxitu mzii imzi muz nzz muz nzz muz < 

R mm t NTe«fR mm DrcLA R rn jN SEGMENT 29 AT 00588000 C 

*°°638000* 00639000 00641000 OO642OOO 00643000 00644000 ■ - - - 

O R — INTEGER — DECLARED IN SEGMENT 32 AT 00674000 

*00675000* 00679000 L 

R -- INTEGER -- DECLARED IN SEGMENT 33 AT 00688000 — 

O *0068900Q* 00692000 

R — REAL -- DECLARED In SEGMENT 60 AT OHO4OOO ( ~ 

01128000 01164300 01164400 0H64500 01164600 01168900 *0U69000* - 

O R -- REAL -- DECLARFD IN SEGMENT 63 AT 01254000 

01260000 01262000 01263000 01268000 01270000 01272000 01273000 L 

R «"" REAL "* DECLARFD IN SEGMENT 66 AT OI287OOO 

O 01295100 01295?00 01298000 01299100 01300000 0i30l000 01304000 n 

R «•- RfAL •- DECLARFD TN SEgMeNT 70 AT 01358000 C 

*0i4i8575* 01423000 *0i44l000* O1443OOO 01447000 *0i465200* 01465600 0i466i00 01466300 — 

R -- STREAM VARIABLE — VALUE PARAMETER ,- DECLARED IN SEGMENT 70 AT 01370260 n 

°1370270 0i370/j80 L 

R « REAL •- DECLARED IN SEGMENT 77 AT O17O3OOO __ .__ 

O 017H000 *0l7l8000* 0l7i9000 

R — REAL -" DECLARED IN SEGMENT 79 AT 01757335 C 

O 'llrlltll' llrtltll llll?Z .llltllll ° l75760 ° 0l757M ° »»"»-»t»77»o o.rsrrr. 0,7575,0 o,7 5 7B 2 o 

R — REAL " DECLaRfD IN SEGMENT 82 AT 01758200 C 

01858000 01860000 01862000 0l9i4000 01921000 0i924000 01961000 0i964000 1967000 *0 1 97^000*- i 97AOnn 

O 01977000 01978000 01983000 *0 1984000**02005000**02006000* 02007000 02008000 ° 196700 ° *°l 97 3° 00 * 01976000- 

Ra — Real •• dfcLared in SfgMent 82 at 01758200 ^_^ 

'~ 020t6000 02044000 02047000 - - - 

RANGE — BOOLEAN — VALUE PARAMETER -- DECLARED jN SEGMENT 10 AT 00656000 

00653000 00654000 *00658700* OO662OOO L, 

RANGE mm FORMAT -- DECLARED IN SEGMENT 57 AT 00956000 

O 01000000 01005000 01021000 

RCW -- BOOLEAN -- DFCLARED IN SEGMENT 70 aT 01366000 O 

♦01465100**01465600* 01465700 *01466000* 01466600 — 

O RDCTARLF — DEFINE — DECLARED IN SEGMENT 10 AT 00152000 

02016000 U 

READARRAY — PROCEDURF — DECLARED IN SEGMENT 2 AT 00041000 - 

00060000 00066000 00843000 00845000 OO846OOO 00847000 00848000 

Reload -- boolfan — dfclaRfd in segment 10 at 00082150 O 

008?MQQ 00839000 OO85O1OO *021 19 145**021 i92S0* 02120135 *02l73790* - - - -- 

Repeating — boolfan — declaRfd in segment 10 a t 00082150 

00834095 02173720 *02173740* O 

REPLY -- DEFINE — DECLARED IN SEGMENT 10 AT 00164160 - -- 

REST -- STREAM LABEL •• DECLARED IN SEGMENT 70 AT 01371135 — OCCURS AT 0137M80 -, 

01371270 01371300 O 

R ^START -- LABEL »- DECLARED IN SEGMENT 10 AT 00080500 •«■ OCCURS AT 02120900 -- - 

( ) 
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O 1 02173800 r 

Result — integer -• name Parameter — decLaRfd in segment 10 at 01335000 

01332000 *01344000* 

O Return « define — declared in segment 10 at 00161000 r 

00888000 

RJE *» DEFINE — DECLARED IN SEGMENT 10 AT OOllOlOO 

:. O 01985350 r 

RJEWAITQ — DEFINE ■— DECLARED IN SEGMENT 10 AT 00164335 

01985375 

O RO •■- INTEGER — DECLARED In SEGMENT 74 AT 01529000 r 

"~" +01662000* 01663000 *01672000* 01675000 01677000 *0l679000* 01681000 01685000 

ROW •- DEFINE -- DECLARED IN SEGMENT 10 AT 00118000 

0~) 00547000 00551000 00606000 00608000 00615000 00617000 00639000 00640000 00641000 00643000 00675000 f 

- 1 00689000 00763600 00763615 00774000 00777000 00780000 00783000 00796000 00799000 00824110 00832000 

00832100 01149000 0l5i6000 01517000 01559000 0i56l000 01757600 0i757875 01978000 02038000 02040000 

02129180 
RP — INTEGER — DECLARED IN SEGMENT 74 AT 01529000 

RS -- REAL — DECLARED IN SEGMENT 82 AT 0i758200 " 

020i6000 02019000 O2O41OOO /- 

^ RT -- FORMAT — DECLARED IN SEGMENT 84 AT 0i776000 ^ 

02043000 _ ■■ • " — 

RTD — REAL ARRAY — DECLARED IN SEGMENT lO AT 00419000 r 

00773000 *O0777O0O* 00778000 *00783000* 00784000 00786000 00787000 00788000 *00799000**00800000* 00801000 

00803000 

S -* STREAM VARIABLE •" NaM F PARAMETER — DECLARED IN SEGMENT 2 AT 00036000 f 

00037000 

S « STREAM VARIABLE — NaMe PARAMETER -• DECLARED IN SEGMENT 10 AT 00560000 """ 

00564000 r 

S -• STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 50 AT 00818000 

008?0000 ■ ' ■ 

S -- STREAM VARIABLE — NAME PARAMETER -- DECLARED IN SEGMENT 62 AT 01231000 

01234000 ^ 

s -- stream variable •- name parameter •- declared in segment 10 at 01325000 - 

01328000 

W S -» FORMAT -- DECLARED IN SEGMENT 71 AT 01369000 ^~ 

01438000 ... 

S -» INTEGER — DECLARFD IN SEGMENT 74 AT 0i5220O0 r 

01606000 01607000 01693000 01695000 

S — STREAM VARIABLE -- NaMe PARAMETER — DECLARED IN SEGMENT 10 AT 01750000 - 

01754000 

W S -- REAL -- DECLARFD IN SEGMENT 79 AT 01757335 

*0!757845* 0i757855 0i757860 0i757865 01757870 0i757875 0i757890 *0i757895* " "" _ 

S -- INTEGER •"* DECLARED IN SEGMENT 82 AT 01758300 

01989000 01990000 01993000 01997000 02002000 *0g0l9000* 02021000 *0207l000* 02073000 *02117490* 02117500 
S -• REAL -• NaMe PaRaMfTeR mm DECLARED IN SEGMENT 82 AT 01814000 
01811000 01818000 01819000 *0l820000* 01822000 f 

SALF — STREAM VARIABLE " VALUE PaRAMftER — DFCLARED IN SEGMENT 70 AT 01370260 

01370270 01370440 

SAVEAREA -« STREAM LABEL -• DECLARED IN SfGMENT 60 AT 0m5800 — OCCURS aT Om7000 C 

0m6600 

SAVERESULT •• DEFINE -- DECLARED IN SEGMENT lO AT 00l64l00 - 

SaVERESUlTS • • DEFINE » DECLARED In SEGMENT 10 AT 00107000 r 

SD •- INTEGER — DECLARED In SEGMENT 74 AT 01522000 

01584000 01612000 *01613000* 01617000 

SE — FORMAT — DECLARED IN SEGMENT 83 AT 01759000 Q 

02003000 
SEC -" INTEGER " N A ME PARAMETER "- DECLARED IN SEGMENT 10 AT 00452000 - 
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O ■ 00451000 *00455000**00459000* 

SECONnS -" DEFINE « DFCLaRfD IN SEGMENT 10 AT 00427000 

00784000 00789000 00792000 00793000 00801000 00802000 00803000 00804000 - 

O SEG "" STREAM VARtABLf -- VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 0l349t20 r 

01349130 0j349?20 " k - 

SEG — INTEGER -- NAME PARAMETER -- DECLARED IN SEGMENT lO AT 01349520 " """ - - - - 

O 01349500 01349560 01349570 Ol34958o 01349600 0i3496l0 01349630 0i349640 01349650 01349690 01349700 f 

SEG — INTEGER — DECLARED IN SEGMENT 70 AT 01357000 ^ 

01444000 01447000 01448000 01449000 01465600 *0l466000* 01466100 01466300 01469800 "" " ~"~" 

O SEG -- REAL "- DECLARED IN SEGMENT 74 A T 01531000 f 

♦01616000* 01617000 01623000 01639000 01657000 *0l670000* 

SEGH -" FORMAT — DfCLaRED IN SEGMENT 76 A T 01533000 

:Q 01615000 

SerMeNT — FORMAT — DFCLaPfD IN SEGMENT 76 AT 01537000 

01639000 O168OOOO " " " 

■ : Q SEGS -- INTEGER — DECLARED IN SEGMENT 8 AT OOO46OOO r 

:■ *00049000**00050000* OOO51OOO OOQ54OOO 

; SEGS -- REAL — DECLARED IN SEGMENT 74 AT 0)530000 

O 01613000 O16I6OOO *0i664000**0i667000* 01670000 r 

r ; SEGZERO »• REAL ARRAY »• DECLARED IN SEGMENT 2 AT 00034000 v - 

I " 00066000 00068000 00069000 00070000 00071000 00072000 00073000 00843000 "" 

O SEPTIC — FILE " DFCLARED IN SEGMENT 41 AT 00763145 " r 

00763485 00763495 00763575 

SEPTIP.TANK — DEFINE — DECLARFD IN SEGMENT 10 AT 00110300 " 

Q SeQUENCF — PROCEDURE -- DECLARED IN SegMfNt 10 AT 01224000 r 

01251000 01275000 01281670 0i3l2000 01663000 K - 

SETUPXNAMEANDXNAMS -» PROCEDURE — DECLARFD IN SEGMENT 10 AT 00246000 - 

Q 00863000 r 

SGtJOG — BOOLEAN -- DECLARED IN SEGMENT 1O AT 00082100 ^ 

00666500 *007l9 1 00**00730i00**0i277l00**0l279i00**0i28i580**0l28l900**0?0i2i00**02ll8200* " 

Q SGM — REAL -- DECLARED IN SEGMENT 74 AT 01530000 

01617000 01618000 01627000 01629000 01631000 *0l68l000* 01682000 O1683OOO 01684000 01684100 

SHAREDISK -- DEFINE -- DECLARED IN SEGMENT 10 AT 00108000 ' ' 

Q 00790100 02117400 

SHEET " DEFINE — DECLARED IN SEGMENT 10 AT 00133000 

00724000 ■ • - 

Q SlNcSLASTHL -» DEFINE -- DECLARED IN SeGMfNt 10 AT 00425000 r 

00803000 00804000 ^ 

SiZ -• INTEGER -• DFCLARED |N SEGMENT 74 aT 01529000 - 

q *0i620000* 0i62l000 01623000 01624000 01627000 O1628OOO *0i635l00* 0i639000 O164OOOO 0i64l000 01656000 

w SIZE •- INTEGER — DECLARED IN SEGMENT 39 AT 00763024 L ~ 

♦00763034* 00763040 
Q SIZE -- INTEGER -- DECLARED IN SEGMENT 47 AT 00807130 

w *00807340* 00807350 

SIZE "- STREAM VARIABLE " VALUE PARAMfTER -• DECLARED IN SEGMENT 60 AT 01115400 . .- — 

D 01115500 01120200 01120700 * ^ 

^ SIZEF — DEFINE — DECLARED IN SEGMENT 65 AT 01281570 ^- 

01281630 01281640 01281660 0i28i850 - 

O SKjPEFE •- LABEL -• DECLARED IN SEGMENT 70 AT 01361000 -• OCCURS AT 01418600 r- 

SKlPPfNfi -- STREAM VARIABLE -- VAlUe PARAMETER — DeClAReD IN SEGMENT lO AT 00536000 ^ 

00537000 00540000 - 

q slate — define — declared in segment 10 at 00121000 

01989000 '~ 

SOMOKB « BOOLEAN — DECLARED IN SEGMENT lO AT 00498000 

O *010?3000**02l20a20* 02157000 r 

SOMOKF " BOOLEAN -<• DECLARED IN SEGMENT lO AT 00498000 ^ 

♦ 01003000**02120415* 02155000 - ' 
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ni SP *- STREAM VARIABLE -• VALUE PARAMETER "- DECLARED IN SEGMENT 10 AT 01325000 f 

01326000 01328000 

SPEC — DFFINe — DFCLARED IN SEGMENT 70 aT 01365100 - - - 

01381100 r 

SPO »•• FILE — DECLARED IN SEGMENT 2 AT 000i6520 

00866000 00867000 00868000 00893000 00894000 02119230 02119380 
, q SPREAD -- INTEGER PROCEDURE — DECLARED IN SEGMENT 10 AT 01512000 -• FORWARD AT 01351000 f 

01387000 01394000 0l4l8575 01439000 01441000 01465200 *0l5l6000* 0l5l9000 01543000 01576000 01580000 
01584000 01588000 01592000 01597000 01601000 01606000 

O squeeze — Label -- declared in segment 7o at 01362000 — occurs at ouoiooo r 

^ 01415000 

STACKOVFRFLOW ■• DEFINE mm DECLARED IN SEgMfNT lO AT 00160000 " " 

00886000 
STARB L ANK — ALPHA -- DECLARED IN SEGMENT 7b, AT 01523000 
*0l632000**0i636000* 01641000 

q STARCOUNT — INTEGER •- DECLARED IN SEGMENT 29 AT 00588000 £ 

♦00596000* 00623000 00624000 
STARD mm BOOLEAN — DECLARED IN SEGMENT 29 AT 00587000 
O *006l0000* 00620000 +00625000**00629000* 00635000 f 

STARS — FORMAT -• DECLARED IN SEGMENT 16 AT 00297000 

"'" 00405000 02129000 02136000 ...... 

Q STARS — REAL -* DECLARED IN SEGMENT 74 AT 01526000 (~ 

*01539000* 01566000 01567000 01640000 01682000 01684100 

STARZ -- FORMAT "" DECLARED IN SEGMENT 16 AT 00298000 

O 00623000 00624000 C 

w STATION « DEFINE — DFCLaRfD IN SEGMENT 10 AT 00164240 

00807575 00807580 01985385 0l985390 " 

r\ STATIONMESSAGEHOLDER — DEFINE •- DECLARED IN SEGMENT 10 AT 00164310 r 

° 01985120 

STATISTICS »• DEFINE -- DECLARED IN SEGMENT 10 AT 00109000 - 

q STAX -- RFAL ARRAY -» DECLARED IN SEGMENT 10 AT 00095000 Q 

♦01089000* 01197000 *0l 198000**01 203000* 01375000 01377000 01381100 01382000 01399000 01438000 *0l69t000* 

♦ 01695000**01698300**01707000* 01716000 01718000 *0 1721000**01731000**0 1 7421 30* " " 

O STAXMaX -• DEFINE " DFCLaRfD IN SEGMENT 10 AT 00094000 r 

"^ 00095000 

STK -• INTEGER -- DfCLaRED iN SEGMENT 60 aT 01112000 . . .._. 

Q *01194000**01195000* 01197000 01198000 Q 

SUBLEVEL -- REAL -• DECLARED IN SEGMENT 2 AT 00028000 
*00068l00* 00409000 
Q SW -- STREAM VARIABLE •• DECLARED IN SEGMENT 60 AT 01H5700 C 

*0m8900* 01121700 
SYl mm STREAM VARIABLF -• VALUE PARAMETER -- DECLARED IN SEGMENT 10 AT OU49120 
O 01349130 01349?90 • C 

^ SYL — INTEGER — VaLUE PARAMETER — DECLARED IN SEGMENT 10 AT 01349520 

01349500 01349510 01349570 01349610 01349640 01349700 

C) SYSID — FORMAT ••- DECLARED IN SEGMENT 22 AT 00444100 f 

00790120 
SYSNO mm nE FINE — DECLARED IN SEGMENT 10 AT 00164305 

r\ 00790110 r 

T « REAL ARRAY -- DECLARED IN SEGMENT 6 aT OOO4O13O 

00040270 00040280 - — 

Q T -- REAL ARRAY -■■ DECLARED IN SEGMENT 12 AT 00270000 r 

*00272000* 00294000 

T -- INTEGER — DECLARFD IN SEGMENT 26 AT 00454000 
q *00456000* 00457000 00458000 00459000 

T -- INTEGER " DECLARFD IN SEGMENT 31 AT 00658000 
*00658500* 00658600 00659000 00660000 00661000 " 
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O ' T « TNTFfiER "- DECLARFD IN SEGMENT 56 AT 0Q963000 P 

00967t00 00967i30 00967140 00967l50 00972400 *00978l00* 01034000 *0i047000* 0lQ54000 0i057000 01058000 

01059000 ~" 

P T " DEFINE — DECLARED IN SEGMENT 60 aT OllOUOO P 

^ 0114*100 1 1661 00 OH66600 Oij66900 0H67300 0H67700 0n67800 Oj 1681 00 O11683OO 0H68500 0n68550 

0H68900 01169400 01200000 01210000 01213000 
O T — INTEGER -• DECLARED IN SEGMENT 62 AT 01229000 p 

*01238000**01239000* 01242000 01245000 01247000 
T — STREAM VARIABLE " DECLARED IN SEGMENT 10 AT 01349150 
Q 01349230 01349?70 01349300 P 

T «•- STREAM VARIABLE — DECLARED IN SEGMENT 70 AT 01370050 

T — REAL — DECLARfD IN SEGMENT 79 AT 01757335 

Q 01757870 01757890 01757895 P 

TA — REAL — DECLARED IN SEGMENT 82 AT 01758200 

" ' " 02013000 02027000 02032000 02076000 

. ; Q TABLELOOKUP — PROCEDURE -• DECLARED IN SEGMENT 10 AT 00316000 p 

: 00335000 00361000 

; ■ • TABLESLOC -• INTEGER — DECLARED IN SEGMENT 10 AT 00497000 

■.Q *01058000* 0H67700 *02120l65* f 

TAR — DEFINF — DECLARED IN SEGMENT 10 AT 00164430 
01919100 
O TB — REAL ARRAY -- DECLARED IN SEGMENT 82 A T 01772000 Q 

*0l863000* 0l9i5000 *0l926000* 01962000 01965000 0i968000 02023000 02035000 O2O38OOO 02040000 02049000 
02059000 02061000 02075000 02089000 02096000 02107000 02114000 02116000 
O TDFID "• nEFTNF •• DECLARED IN SEGMENT 10 AT 00082310 p 

w 007856i0 00834060 OO834O85 OO834095 02H9360 ©2119370 02H9380 0pi73700 

TDMFID « DEFINE -- DECLARED IN SEGMENT 10 AT 00062300 
p 00785600 00834050 OO834O8O p 

^ TEMP -- DEFINE •- DECLARED IN SEGMENT jO AT 00433000 ^ 

TF -- FORMAT -- DECLARED IN SEGMENT 83 AT 01764000 - - _ — 

p 01862000 01925000 01961000 01964000 01967000 p 

w TFXI — FORMAT *- DECLARED IN SEGMENT 83 AT 01763000 ^ 

01914000 " 

p THISISAMOM «- STREAM LABEL -• DECLARED IN SEGMENT 70 AT 01370570 « OCCURS AT 01370900 p 

~ 01370830 

THISROW -- REAL ARRAY " DECLARED IN SeGMfNj 10 AT 00558000 ' " 

p 00615000 00618000 00619000 00630000 p 

^ TIM -- PROCEDURE — DECLARED IN SEGMENT 4i aT 00763290 

00763350 00763515 " """" 

p TjMEANALYZED — DEFINE — DECLARED IN SEGMENT 10 AT 00420000 p 

w 00792000 00793000 

TIMELASTHL -• DEFINE »- DECLARED IN SEGMENT 10 AT 00424000 
p 00801000 00802000 P 

TIMES — PROCEDURE -- DECLARED IN SEGMENT 10 AT 00451000 

00460000 00784000 00792000 00801000 00803000 " """ " 

P TiMeT A »<eN *- DEFINE — DECLARED IN SEGMENT 10 AT 00422000 Q 

00784000 00789000 
TlNU — DFFlNE « DFCLARED iN SEGMENT 10 AT 00146000 
O 02013000 Q 

^ TlNUOK -- BOOLEAN — DECLARED IN SEGMENT 82 AT 01758400 

*020i3000* 02075000 
p TOG •- BOOLEAN -- DECLARED IN SEGMENT 47 AT 00807140 

*00807260* 00807350 $00807400* " 

TOGLE — DEFINE «"• DECLARED IN SEGMENT 10 AT 00128000 * ■ 

p 00763440 01857000 01858000 01919200 p 

w TOO •»- INTEGER -" VfiLUE PARAMETER *" DECLARED IN SEGMENT 10 AT 00571000 ~" 

00569000 00570000 *00598000* 00599000 00602000 00638000 00648000 
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O '. too •- real •* valuf parameter -" declared in segment 10 at 01096500 q 

TOO — INTEGER -" VaLUF PARAMETER " DECLARED IN SEGMENT 10 AT 01099000 
01097000 01098000 0H43000 
TOO -- REAL «- VALUF PARAMETER — DECLARED IN SEGMENT 10 AT 01281520 f 

01281500 O128151O 01281640 0i28i690 01281720 0t28i730 01281855 
TOS «•- INTEGER — DECLARED IN SEGMENT 70 AT 01357000 .... . . _ 

O *01375000* 01376000 *0l380000* 01381000 01387000 *0l 389000**0 1 392000* 01394000 01396000 01400000 *01401000* C 

01402000 *01403000**01408000* 01412000 *014l8560* 01418570 01418575 01419000 01423000 *0l424000* 01454000 

01455000 01456000 01457000 01457130 01458000 01465500 

TOsORiG -" REAL -- oEClARED IN SEGMENT 70 AT 01359000 r 

*0l400000* 01408000 ^ 

TOTALPROCS -- FORMAT — DECLARED IN SEGMENT 64 AT 01256000 

OipSOOOO r 

TPNAME — REAL ARRAY -• DECLARED IN SEGMEnT iO AT 00082250 

00785600 00785M0 *00834050**00834060**00834070* 00834080 00834085 00834095 OO8342OO 02119360 02119370 ' 

02119380 02173700 r 

TRANSACTION « DEFINE « DECLARED IN SEGMENT 10 AT 00164170 . ^ 

TRITEM — FORMAT -• DECLARED IN SEGMENT 71 AT 01368000 
01387000 01394000 01418570 01465200 

tryaNother •• label -- declared in segment 88 at 02ti9i40 -- occurs at 02119150 

02119260 " 

O TS — REAL "- DFCLARED IN SEGMENT 82 AT 01758200 r 

^ 02013000 02019000 02024000 

TUSTARYMiX — DEF?Ne *• DECLARfD IN SEGMENT 10 A T 00164270 ~ 

O TYP — INTEGER « DfCLARED IN SEGMENT 35 AT 007l0000 r~ 

0O7H0O0 00712000 007i3000 ^ 

TYP mm REAL « DECLARED IN SEGMENT 52 AT 00873000 

q 00885000 00887000 00889000 00892000 r 

TYP -- REAL •• DECLARED IN SEGMENT 58 AT 01072000 

01081000 01082000 ~ ~ 

Q TYP -- INTEGER -" DfCLARED IN SEGMENT 63 AT 01255000 r 

01260000 01268000 01269000 "~ 

TYP — INTEGER •■ DFCLARED IN SEGMENT 66 AT 01286000 " 

r\ 01292000 
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♦01242000* 01248000 
V -- REAL -- DECLARfD IN SEGMENT 70 AT 01358000 



c 



TYP — INTEGER *" DfCLARED IN SEGMENT 74 A T 01522000 L " 



01540000 01556000 01612000 

Q TYP — INTEGER « DFCLARED IN SEGMENT 82 aT 01758300 r- 

TYPE — STREAM VARIABLE -• VALUE PARAMETER -- DECLARFD IN SEGMENT 60 AT 0H15300 

01U5500 OH17700 0m9900 - 

q TYPMAX -- DEFINE -• DECLARED IN SEGMENT 10 AT 00113000 r- 

00295110 00594000 00953000 01149100 

UA -- REAL *- DECLARED IN SEGMENT 82 AT 0i773000 

02066000 02080000 02087000 02117440 02117510 ,- 

UFO — FORMAT — DECLARED IN SEGMENT 85 AT 01853000 ^ 

02079000 

O UN IT "" DEFINE — • DFCLARED IN SEGMENT 10 aT 00145000 ( - 
w 02066000 

us -- real -- declared in segment 82 at 01773000 — 

02066000 02071000 02077000 02H7440 02H7450 r- 
USERCODE — REAL « DFCLARED IN SEGMENT 79 AT 0i757335 

0i7577l0 01757740 0i757750 " " 

USERSTA — DEFINE -- DECLARED IN SEGMENT 10 AT 00164260 r 

V -- REAL *- DECLARED IN SEGMENT 58 AT 01072000 

01081000 01082000 01090000 " " 

V ■"■- REAL ■»• DECLARFD IN SEGMENT 62 AT 0123Q000 Q 



,J 



L 



o 



L, 1 



o 



.u 



■n 



n?« 8 2??° 00 ?81000 00982000 00984000 00985000 00988000 00990000 00992000 00993000 00996000 00997000 

2J2U222 2 1 2?2°2° 0l 2 lft00 ° 01015000 OlOlSOOO 01028000 01029000 01030000 01036000 01037000 01038000 

01039000 01040000 01041000 0l04200 01043000 01044000 01047000 048000 056000 ° 103 ™ 00 °i 0ib000 
VMSTART -- REAL — nECLARED IN SEGMENT 56 AT 00947000 



C 



u „ Rrli 4l85l ° n 01 , 41 ? 540 ,,°l H ?,° 00 0H20000 01421000 0l423000 *0l438000**0l 439000* 01441000 f 

V « REAU — DECUARrD TN SEGMENT 77 AT OI7O3OOO ' u ^ 

*0i7i2000* 01713000 

VAL — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 70 AT 01370940 r 

01370950 01371070 J C 

VARIFY — BOOLEAN PROCEDURE — DECLARED IN SEGMENT 82 AT 01811000 - 

*olo69Soo* C^mm ° l98900 ° 020l300 ° 02014000 02015000 02016000 02017000 02066000 02067000 02068000 C 

VBFD ** REAL — DECLARED IN SEGMENT 10 AT 00093000 - • 

O 01076000 01077000 •01079000* 01081000 01084000 01439000 *02l20l60* r 

verify — define •• declared in segment 82 at 01823100 L 

» d, « M 02013000 02014000 02015000 020J6000 02017000 02066000 02067000 02068000 02069000 

VERSION — » R^aL — DECLARED IN SEG M ENT 2 AT 00028000 

♦ 00068200* 00785550 " " ^~ 

VJOBNuM -- R Ea l mm dcclaRED IN SEGMENT 10 AT 00093000 .. 

01073000 01074000 01075000 01077000 01080000 *02120l55* ^ 

VLINK *<■ REAL -- DECLARED IN SFGMENT 56 AT 00948000 l - 



r 



O 00973000 00974000 00975000 00976100 00976200 

VO -. REAL -- DECLARED IN SEGMENT 56 AT 009 4 6000 ( ~ 

00968000 009 6 9000 00970000 0097i000 00972000 0097?400 00976l00 00976*00 

O W - STREAM VARIABLE - VALUE PARAMETER - DECLARED I N SEGMENT 2 AT 00036000 3 

OOO37000 L 

W — STREAM VARIABLE — NAME PARAMETER -. DEC L ARED IN SEGMENT 10 AT 00395000 

O 00398000 

W "" STREAM VARIABLE -- VALUE PARAMETER — DECLARED In SEGMENT 10 AT 00560000 C 

00561000 00565000 

O W "" STREAM VARIABLE — VALUE PARAMETER «- DECLARED IN SEGMENT 10 AT 01325000 r- 

01326000 01330000 C 

W '" STREAM VARIABLE — V A LUE PARAMETER — DECLARED IN SEGMENT 10 AT 01750000 --"- - 

O 01751000 01755000 

W — STREAM VARIABLE — NaMf PARAMETER — DECLARED IN SEGMENT 82 AT 01765000 ( - 

O WAITQUE •* DEFINE •• DECLARED IN SEGMENT lO AT 00147000 ^ 

00728000 C 

Wc — REAL -- DECLARED IN SEGMENT 36 AT 00734000 

*00749000* 00751000 00752000 

WFO -- FORMAT -- DECLARED IN SEGMENT 85 AT 01854000 C 

02093000 02111000 

O WHAT — REAL •- NAMF PARAMETER — DECLARED IN SEGMENT 10 AT 00651200 

00651100 

WHAT ""INTEGER -- VALUE PARAMETER — DFCLARED IN SEGMENT 10 AT 00655000 
00653000 00654000 00658500 00664000 00665000 00666000 

WHAT — RpAL — N A M F PARAMETER — DECLARED IN SFGMENT 10 AT 00672000 
00669000 #00679000* 

q what — Real -- namf parameter -« declared in segment 10 at 00686000 

00683000 *00692000* 
WHAT -,- REAL -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 00698000 
O 00695000 00701000 

WHAT -* REAL -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 00708000 
00705000 007H000 
O WHAT »- INTEGER -" VALUE PARAMETER " DECLARED IN SEGMENT 82 AT 01813000 

018H000 01812000 0l8l6000 0l8l8000 
WHATFlLF — FORMAT — DFCLARED IN SEGMENT 43 AT 00763135 

o 



r- 



o 



o 



(. I 



r) 



k. 



O i 00763465 , 

WHFN — REAL — NAME PARAMETER -- DECLARED IN SEGMENT 10 AT 00452000 

OO451OOO 00455000 OO456OOO - 

Q WHICH -- STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 60 AT 01115300 

01H5500 01116400 

WHICH — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 10 AT 01349120 . .. . . 

, Q 01349130 01349180 01349320 

WHICH — INTEGER — DECLARED IN SEGMENT 70 AT 01357100 ^ 

WHICH -• STREAM VARlARLE " VALUE PARAMETER — DECLARED IN SEGMENT 70 AT 01371110 - 

O 01371120 01371220 r 

WITHIN — BOOLEAN PROCEDURE — DECLARED IN SEGMENT 10 AT 01332000 * L 

♦ 01348000* 01349000 01349560 01349600 01349630 01349680 01444000 - 

~-Q WITHINCODESpGMENT -- ROOLEAN PROCEDURE -* DFCURED IN SEGMENT 10 AT 01349500 r 

*01349560**01349600**01349630**01349680* 01349710 01465600 01469800 L 

WOOPS »- BOOLEAN •» DECLARED IN SEGMENT 70 AT 01359000 ~ - 

^Q *0t40l000* 01403000 *0l406000* 01413000 

WORD — STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 10 AT 00552000 L 

r : ' ' 00554000 " 

Q . WORD — REAL -- VALUE PARAMETER •" DECLARED IN SEGMENT 56 AT 00952000 r 

00950000 00951000 00953000 00954000 00955000 . L 

ji WORoMODF — STREAM LarEL -•" DECLARED IN SfGMeNT 70 AT 01371135 »- OCCURS aT 01371310 " " 

Zi Q 01371240 * 

WORDSfZF — INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 2 AT 00043000 ^ 

OOO41OOO OOO42OOO OOO48OOO OOO49OOO 00057000 00058000 
Q X — STREAM VARIABLE — . DECLARED IN SEGMENT 50 AT 00822110 

008?2180 00822P30 l - 

X «.• rEAl •• DECLARED IN SEGMENT 60 AT OI1O5OOO - ■' 

01151400 01151500 01151600 01166200 01166300 01166400 01166500 01167000 01167100 01167200 01169500 

01169550 ^- 

X -• REAL -- DECLARFD IN SEGMENT 70 AT 01359000 

01402000 01404000 01406000 01465400 01465500 01465900 01466000 01466300 01467700 01467900 01468200 r 

01468300 01468400 01468450 01468600 01468800 01468900 01469100 01469200 01469500 01469800 C - 

XA — STRfAM VARIABLE <•«■ NAME PARAMETER • - DECLARED IN SEGMENT 29 AT 00576000 

00579000 00583000 

XB -- STREAM VARIABLE -• NAME PARAMETER -- DECLARED IN SEGMENT 29 AT 00576000 < - 

00580000 00584000 
XCLOCK -• DEFINE *- DECLARED IN SEGMENT 10 AT 00416000 r 

00780000 00783000 U 

XCLOCX — DEFINE — DECLARED In SEGMENT 10 AT 00431000 

00783000 00784000 00800000 00801000 

XIT — STREAM LABEL -- DECLARED IN SEGMENT 10 AT 00563000 -- OCCURS AT 00567000 ^ 

00565000 

XIT — LABEL. -- DECLARFD IN SEGMENT 36 AT 00742000 — OCCURS AT 00763000 r 

00747000 ^ 

XIT »- STREAM LABEL -- DFCLaRED IN SEGMENT 46 AT 00771105 -• OCCURS AT 00771150 
00771120 _ 

XIT -- STREAM LABEL — DECLARED IN SEGMENT 50 AT 00822110 •« OCCURS AT 00822260 U 

00822160 00822170 - - 

x it — label •- declared in segment 70 at 01362000 •- occurs at oim60oo ^ 

01403000 01409000 L, 

XNAME -- REAL ARRAY »• DECLARED IN SEGMENT lO AT 00089000 - - ■- - 

*00294000* 00916000 00918000 00919000 01396000 _ 

XNAMS -- REAL ARRAY »- DECLARED IN SEGMENT 10 AT 00090000 ^ 

00291000 00918000 00919000 01396000 

XNAMS — STREAM VARlARLE — NAME PARAMETER -" DECLARED IN SEGMENT 12 AT 00248000 r\ 

00250000 U 

XSNaM f — - DEFINE — DECLARED IN SEGMENT 10 aT 00091000 -- 



(J 



C: 



(J 



O I 009 t 6000 

XX -- LABEL -» DECLARED IN SEGMENT j0 AT 00080500 -* OCCURS AT 0?l73760 - 

02173750 w^i'j'o" 

O Jl — FORMAT -- DECLARED INI SEGMENT 22 AT 00438000 

X1MARKXI — FORMAT — DECLARED IN SEGMENT 22 AT 00441000 - 

00786000 
O Y — real •- DECLARED In SEGMENT 27 AT OO466OOO 

00479000 00480000 00494000 C 

Y "" STREAM VARIABLE — DECLARED IN SEGMENT 50 aT 00822110 

O #00822220* 00822250 

Y — REAL •• DECLARFD IN SEGMENT 70 AT 01359000 C 

?o *S52sssss- muz iizin muz tmiii* oi * ,8mo * oi466oo °* o,466,o ° °»* mm ° o 1 ™ <>" s "°° 

YEAR " INTEGER — NAME PARAMETER — DEcL A RED IN SEGMENT 10 AT 00464000 ^ 

00461000 *00494000* _ 

" YE/iR ""o04 T 4 EAM VARlABUE! "" NAME P * R A M ETER — DECLARED IN SEGMENT 27 AT 00469000 

YEARS ** DEFINE — DECLARED IN SEGMENT 10 AT 00429000 
(J 00778000 00788000 00791000 00793000 

< t YECH — OFFINf -- DFCLARED IN SEGMENT 10 A T 00164295 C 

ii Z -- TNTFfiFR — DECLARFD IN SerMeNT 29 AT 00589000 -- 

ZlltZ* ZZWTo IZtZ 00606000 ° 06,010 ° 00615000 006,900 ° 0063O00 ° 0063ao °° °°^°°° "»««ooo 

ZEROK -- BOOLEAN -- DECLARED IN SEGMENT 56 AT 00946000 
O *00968000* 00976000 00976100 00976300 00999i00 OiOOOOOO 0i005000 

Zl — INTEGER — DECLARED IN SEGMENT 29 AT 00589000 L 

♦00594300* 00608000 00617000 

O _. 

o 

o 



CROSS REFERENCE STATISTICS 



phase one - sort 963 identifiers 
0j36 elapsed time (mln'sec) 
o 0118 processor time 

0131 1/0 Time 

q phase two - sort 6233 references 

0146 elapsed ti m e (minisec) 
0j44 processor time 

O 0108 I/O TIME 

PHASE THREE - PRINT CROSS REFERENCE ( 2013 LINES) 
O 0|4 4 ELAPSED TIME (MlNtSEC) 

0132 PROCESSOR TIME 

0122 i/o time 

o 

O L AB EL 000000000LTNE 00177311? COMPILE DUMP/ANALYZE ALGOL LIBRARY 

O 

o 
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